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PREFACE 


This  report  surainarizes  the  results  of  the  "Helicopter  Trans- 
mission Vibration  and  Noise  Reduction  Program."  The  report 
covers  the  work  accomplished  during  the  4b-month  period  from 
June  1974  through  October  1977  and  is  composed  of  two  volumes. 
Volume  I fs  the  Technical  Report:,  and  Volume  II  is  the  User's 
Manual. 

The  work  outlined  herein  has  been  performed  under  U.S.  Army 
contract  pAAJ02-74-C-0040  and  under  the  technical  cognizance 
of  Mr.  Allr^'‘royar,  U.S.  army  Research  and  Technology  Labora- 
tories, Fort  Eustis,  Virginia. 

This  program  was  conducted  at  the  Boeing  Vertol  Company  under 
the  technical  direction  of  Mr.  A.  J.  Lemanski  (Program  Manager) , 
Chief  of  the  Advanced  Power  Train  Technology  Department. 
Principal  investigators  for  the  program  were  Mr.  John  J. 

Sciarra  (Project  Engineer),  Mr.  Robert  W.  Howells,  Mr.  Joseph 
W.  Lenski,  Jr.,  and  Mr.  Raymond  J.  Drago. 
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INTRODUCTION 


Considerable  attention  has  been  focused  in  recent  years  on  the 
reduction  of  noise  levels  for  both  military  and  civil  heli- 
copters. Helicopter  noise  emanates  from  three  major  sources  - 
the  rotor  blades,  engines,  and  transmissions.  Exterior  noise 
is  dominated  by  the  rotors  and  engines,  although  the  trans- 
mission also  contributes  to  this  noise.  Minimization  of  the 
exterior  noise  is  important  to  reduce  the  annoyance  to  commu- 
nities near  civil  helicopter  operations  and  to  reduce  the 
detectable  noise  signature  of  military  helicopters.  The 
interior  cabin  noise  is  predominantly  due  to  the  transmissions, 
with  the  engines  and  rotors  being  secondary  sources.  Interior 
noise  not  only  degrades  crew  performance  by  causing  annoyance 
and  fatigue,  but  interferes  with  reliable  communication  and 
may  cause  hearing  damage.  Comfortable  interior  noise  levels 
are  essential  for  passenger  acceptance  of  civil  helicopters. 

By  any  of  the  numerous  standards  in  existence  for  scaling 
annoyance  and  reactions  to  noise,  transmission  noise  is  par- 
ticularly objectionable.  Noise  in  excess  of  120  dB  has  been 
measured  for  the  transmission  of  a medium  transport  helicopter 
which,  for  comparison,  approaches  the  noise  level  of  an  air- 
raid siren.  Not  only  is  this  noise  level  high,  but  its  fre- 
quency typically  falls  within  the  sensitive  1000-5000  Hz  range 
v;hiGh  is  particularly  annoying  to  the  hviman  ear.  Furthermore, 
the  pure  tonal  content,  which  results  in  a high-pitched  whine, 
is  subjectively  much  more  annoying  than  broadband  noise. 

Transmission  noise  and  the  inherent  structural  vibrations 
which  generate  this  noise  have  been  of  concern  to  helicopter 
designers  for  many  years.  Until  recently,  analytical  methods 
have  not  been  available  to  predict  and  reduce  transmission 
vibration/noise  problems  in  advance.  The  conventional  means 
of  controlling  transmission  noise  has  generally  been  to  add 
acoustical  enclosures  after  the  hardware  is  built  and  a noise 
problem  has  become  evident.  Since  practical  enclosures  are 
limited  in  noise  attenuation  by  unavoidable  sound  leaks  in 
seams  and  access  doors,  adequate  attenuation  is  not  provided 
for  advanced  helicopter  drive  systems  of  increased  power.  Not 
only  do  these  enclosures  impose  considerable  weight  and  main- 
tainability penalties,  but  they  do  not  reduce  the  deleterious 
effect  of  the  accompanying  vibrations  which  contribute  to 
material  fatigue  and  fretting  at  joints.  The  objective  of  this 
report  is  to  document  computer  programs  that  will  provide  the 
capability  to  perform  trade  studies  during  the  design  stage 
of  a program.  This  capability  will  yield  optimized  drive  train 
components  that  are  dynamically  quiet  with  inherently  longer  life 
and  reduced  vibration  and  attendant  no.i  se  levels. 
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The  following  progrcuns  which  were  used  in  this  contract  are 
briefly  described  and  sample  input  and  output  cases  are  pro- 
vided to  assist  the  user  in  applying  these  programs  to  other 
applications.  The  programs  identified  in  this  report  are; 


• Gear  Tooth  Mesh  Excitation  and  compliance  Input  Generator 
Program  (Tregold's  Approximation) 

• Mesh  Dynamics  for  High-Contact-Ratio  Spur  Gears  (R-75) 

• Program  for  Prediction  of  Gear  Mesh  Excitation  Spectra  - 
GGEAR  (R-67) 

• Dynamic  Gear  Tooth  Force  Analyses  - TORRP  (R-32) 

• Complex  Structural  Dynamic  Analysis  Computer  Program  Using 
Stiffness  Methods  (D-82/C-51) 

• NASA  Structural  Analysis  Program  - NASTRAN  (S-70) 

• Strain  Energy  Analysis  Programs  (S-68  and  S-83) 
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The  transfer  of  torque  between  mating  gears  is  not  uniform 
due  to  tooth  profile  errors  and  the  elastic  deformation  of 
the  gear  teeth  under  load.  This  nonuniforin  transfer  of  torque 
produces  a dynamic  force  at  the  gear  mesh  frequency  (number 
of  teeth  X rpm)  and  its  multiples  which  excites  the  coupled 
torsional/lateral  vibratory  modes  of  the  gear  shaft.  This 
lateral  vibration  (or  bending)  produces  displacements  at  the 
bearing  locations  which  excite  the  housing  and  cause  it  to 
vibrate,  thus  radiating  noise  (Figure  1) . Furthermore,  the 
dynamic  characteristics  of  the  housing  may  magnify  its  dis- 
placements and  the  resulting  noise.  This  transfer  of  mesh 
energy  from  its  source  to  remote  locations  is  shown  in  Figure 
2 as  measured  noise  levels. 

Controlling  the  dynamic  response  of  the  transmission  is  a 
desirable  approach  to  noise  reduction,  since  avoidance  of 
resonance  reduces  shaft  deflections  at  the  bearings  and 
inherently  increases  the  life  of  dynamic  components  and  trans- 
mission reliability. 

Computer  program  GGEAR/HCR  (R'75)  has  been  prepared  by 
Mechanical  Technology  Incorporated  (MTI)  for  the  Boeing  Vertol 
Company.  High- contact -ratio  (HCK)  gearing  reduces  the  non- 
uniform  load  transfer  between  gears  and  hejice  mesh  noise/ 
vibration  generation. 

Computer  program  GGFAR  (R-67)  (Reference  i) , which  was  also 
prepared  by  MTI  as  an  extension  of  GEARO  (Reference  2) , takes 
gear  tooth  geometry  (driving/driven)  as  well  as  material 
properties  to  simulate  mesh  cycles.  This  computer  program  is 
used  to  calculate  approximate  gear  mesh  compliance  (Reference 
1,  page  156)  and  harmonics  of  the  meshing  error. 

Utilizing  the  mesh  compliance  and  a meshing  error  of  R-67,  the 
gear  teeth  dynamic  load  may  be  obtained  using  TORRP  (R-32) . 
This  is  basically  an  uncoupled  torsional  Holtzer  analysis  with 
planetary  capability  (Reference  2) . Other  input  would  be 
shaft  and  gear  geometry  as  well  as  exciting  frequency. 
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Reduction  of  the  dyncimic  excitation  of  the  housing  is  accom- 
plished by  minimizing  the  dynamic  forces  at  the  shaft  support 
bearings.  This  is  a two-fold  task.  First,  the  excitation  due 
to  the  dynamic  tooth  forces  is  calculated  from  the  gear  geome- 
try and  operating  conditions.  Second,  the  dcimped  force 
response  of  the  shafts  responding  to  the  tooth  mesh  excitation 
loads  is  calculated  from  a finite  element  model  and  the  shaft 
is  detuned  using  strain  energy  methods  to  minimize  the  dis- 
placement at  the  bearings.  The  development  of  this  method. 


GEAR  MESHING 
PULSATIONS 


TEETH  UNDER  LOAD 


DYNAMIC  FORCE 
AT  GEAR  MESHES 


VIBRATIONS  AND 
AIRBORNE  NOISE 
RESULTING  FROM 
DYNAMIC  FORCES 


FigLire  1.  Sources  of  Transmrssxon  Noise 


accomplishment  of  extensive  dynamic  testing,  and  correlation 
of  data  are  described  fully  in  References  3 and  4,  Finally, 
the  dynamic  forces  associated  with  the  optimum  configuration 
of  the  internal  components  are  applied  to  the  model  of  the 
housing.  To  study  the  response  of  the  transmission  housing 
to  these  forces  and  to  minimize  the  noise  produced,  a finite 
element  model  of  the  housing  was  developed  and  analyzed  using 
NASTRAN. 

MICROPHONE  INSTALLATION 


3.  Hartman,  R.  M. , A DYNAMICS  APPROACH  TO  HELICOPTER  TRANf- 
MISSION  NOISE  REDUCTION  AND  IMPROVED  RELIABILITY,  Presented 
at  the  29th  Annual  National  Forum  of  the  American  Heli:;opter 
Society,  Washington,  D.C.,  May  1973. 

4.  Hartman,  R.  M.,  and  Badgley,  R.  H. , MODEL  301  HLH/ATC 
TRANSMISSION  NOISE  REDUCTION  PROGRAM,  The  Boeing  Vertol 
Company,  USAAMRDL  Technical  Report  74-58,  U.S,  Army  Air 
Mobility  Research  and  Development  Laboratory,  Fort  Eustis, 
Virginia,  May  1974,  AD784132. 
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Two  computer  programs  have  been  developed  to  calculate  the 
strain  energy/density  distribution  of  finite  element  models 
vibrating  in  various  modes  (References  5 and  6) . 

The  first/  S-68,  takes  any  mode  shape  of  the  internal  compo- 
nents finite  element  model  as  determined  by  finite  element 
computer  program  D-82  and  calculates  the  strain  energy/density 
distribution.  0-82  calculates  the  coupled  bending  (vertical 
and  lateral ) /torsion  natural  frequencies  and  mode  shapes  of 
the  internal  components  finite  element  model  which  includes 
shaft  data,  gear  tooth  mesh  compliance,  bearing  spring  rates, 
lower  planetary  representation,  and  sync  shaft  torsional  spring 
constant. 

The  second  strain  density  computer  progrcim,  S-83,  takes  a 
NASTRAN  modified  checkpoint  tape  as  input  and  calculates  the 
strain  density  distribution  for  the  transmission  housing  plate 
structural  elements. 

The  basis  for  finding  the  strain  density  distribution  is  that 
it  yields  the  optimum  locations  for  structural  modification 
for  detuning  a structure  for  least  weight  penalty. 


Work  conducted  under  this  program  was  directed  toward 
analyzing  the  Boeing  Vertol  CH-47  forward  rotor  transmission 
housing  which  is  composed  of  three  major  sections:  upper 
cover,  ring  gear,  and  case.  The  upper  cover  provides  lugs 
for  mounting  the  transmission  to  the  airframe  and  transmits 
the  rotor  system  loads.  The  case  contains  and  supports  the 
main  bevel  gears.  The  ring  gear,  which  connects  the  upper 
cover  and  case,  contains  the  planetary  gear  system.  This 
natural  division  of  the  housing  was  adhered  to  for  all  the 
modeling  completed  during  this  program. 

The  geometric  grid  points  for  the  model  were  defined  from 
design  drawings  and  by  cross-checking  on  an  actual  housing. 
CQUAD2  (Quadrilateral)  and  CTRIA2  (Triangular)  plate  structural 
elements  were  used. 


5.  Sciarra,  J.  J. , VIBRATION  REDUCTION  BY  USING  BOTH  THE  FINITE 
ELEMENT  STRAIN  ENERGY  DISTRIBUTION  AND  MOBILITY  TECHNIQUES, 
45th  Shock  and  Vibration  Symposium,  Dayton,  Ohio,  August 
1974. 

6.  Sciarra,  J:  J.,USE  OF  THE  FINITE  ELEMENT  DAMPED  FORCED 
RESPONSE  STRAIN  ENERGY  DISTRIBUTION  FOR  VIBRATION  REDUCTION, 
U.S.  Army  Research  Office  - Durham,  Final  Report  Contract 
DAH-C04-71-C-0048,  July  1974. 


GEAR  TOOTH  MESH  EXCITATION  AND  COMPLIANCE 
INPUT  GENERATOR  PROGRAM 


PROGRAM  DESCRIPTION 

The  original  computer  prograiTi  for  predicting  spur  gear  tooth 
mesh  excitation  and  compliance,  which  was  entitled  GEARO,  was 
presented  in  Reference  2.  GEARO  was  subsequently  improved  and 
renamed  GGSAR  {R-67)  to  include  a sideband  analysis  capability 
and  was  modularized  as  indicated  in  Figure  3 to  allow  conven- 
ient inclusion  of  future  improvements  for  helical  and  spiral 
bevel  gears  (Reference  7). 

Under  this  contract,  the  analysis  of  the  mesh  dynamics  for 
high-contact-ratio  (HCR)  spur  gears  was  developed  under  a 
Boeing  Vertol  subcontract  to  Mechanical  Technology  Incorporated 
and  was  included  as  a subroutine  in  GGEAR.  This  revised 
program  (GGEAR/HCR)  has  been  completed  and  tested;  the  details 
of  the  HCR  analysis  and  test  cases  are  presented  herein.  The 
work  accomplished  is  summarized  below; 

• Gear  tooth  mesh  geometry  analysis  for  HCR  spur  gears  was 
developed. 

• Tooth  profiles,  tooth  bending,  tooth  contact  surface 
deformation,  and  tooth  support  flexibility  for  meshes  with 
two,  three,  or  four  pairs  of  teeth  in  contact  instanta- 
neously have  been  included, 

• Load  sharing  betvreen  pairs  of  teeth,  stiffness  of  individual 
tooth  pairs  and  of  the  total  mesh,  and  mesh  excitation 
expressed  in  terms  of  deviation  from  true  conjugate  action 
tangent  to  the  mesh  pitch  circle  result  from  the  analysis. 

• Representative  estimated  values  of  tooth  support  flexi- 
bility are  provided  internally  in  the  program  with  a user- 
controlled  option  for  employing  them. 

• Restructured  analytical  expressions  and  input  parameters  to 
provide  more  efficient  execution  and  improved  utility  were 
included. 

• Automatic  plotting  capability  for  loads  and  tangential 
errors  was  completed. 


7.  Gu,  A.  L. , and  Dadgley,  R.  H.  , PREDICTION  OF  GEAR-MESH- 
INDUCED  HIGH-FREQUENCY  VIBRATION  SPECTRA  IN  GEARED  POWER 
TRAINS,  Mechanical  Technology  Incorporated,  USAAMRDL 
Technical  Report  74-5,  U.  S.  Army  Air  Mobility  Research 
and  Development  Laboratory,  Port  Eustis,  Virginia, 
January  1974,  AD777496. 

19 


.■A 


To  apply  the  mesh  excitation  and  compliance  program  to  helical 
or  bevel  gears,  it  is  currently  necessary  to  employ  the  Tregold 
approximation  (Reference  7).  This  method  reduces  a helical  or 
bevel  gear  to  an  "equivalent"  spur  gear  representation  which 
is  then  input  to  GGEAR. 


(PLOTTING)  (FOURIER  ANALYSIS)  (SPECTRAL 

DENSITY 

ANALYSIS) 

Figure  3 , Gear  Mesh  Compliance/Excitation 
Computer  Program  Structure. 
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INPUT  PREPARATION 


A sample  worksheet  for  developing  input  data  required  by 
Tregold's  approximation  for  converting  a spiral  bevel  gear  into 
an  equivalent  spur  gear  is  shown  in  Table  1.  Table  2 shows 
data  generated  for  the  CH-47  forward  rotor  transmission  spiral 
bevel  input  pinion  and  bevel  ring  gear.  This  data  was  used  to 
fill  in  the  data  input  sheet  shown  in  Figure  4.  A source  list- 
ing of  the  Tregold's  approximation  program  for  calculating 
gear  tooth  mesh  excitation  and  compliances  is  provided  in 
Appendix  A. 

PROGRAM  OUTPUT 


The  Tregold  approximation  program  provides  punched  card  output 
in  a format  for  direct  input  into  GGEAR  (R-67).  Also,  it  is 
convenient  to  use  the  Tregold  program  strictly  as  a data  deck 
generator  even  when  only  spur  gears  are  being  considered.  A 
sample  output  case  is  shown  in  Figure  5.  In  addition  to  the 
program  calculated  output  data,  the  input  data  in  Table  2 is 
also  listed.  This  procedure  provides  a complete  record  of 
the  computer  run,  including  both  input  and  output  data.  Also 
pcvided  with  the  output  listing  is  a set  of  punched  cards  for 
use  as  input  into  program  GGEAR/HCR  (R-75) . 


UIVALENT 


TREGOUJ'S  APPROXIMATION 


DATA  INPUT  SHEET  Page  1 Of 

GEAR  TOOTH  MESH  EXCITATION  AND  COMPLIANCE  PHOGRAM 


9 

SYMBOL 

CASE  1 

CASE  2 1 CASE  3 1 CASF.  4 

5 TITLE 

EACH  CASE  MUST  BE  PRECEEDED  B) 
TITLE  CARD.  START  TITLE  IN  C( 

f A 

32 

“ OUTPUT  SELECTION 

0 END  EXECUTION 

1 TREGOLD  ONLY  3 R.-67  (GGEAR) 

2 R-33  (GEARO)  4 R-75  (GGEAR/HCR) 

J 

NO  OF  TEETH  - 

TNI 

TN2 

PITCH  CONE  ANGLE  (°) 

PCAl 

PCA2 

SPIRAL  OR  HELIX  ANGLE  {®)  * 

SA 

FACE  WIDTH  (IN)  - 

FWl 

FW2 

DIAMETRAL  PITCH 

PD 

OUTSIDE  BREAK  DRIVING  AJDDENDUM 

RADIUS  (INI  (+1  DRIVEN  (IN)  (-) 

■ro^ 

ROOT  RADIUS  DRIVING 
(IN)  (+1  DRIVEN 

DEDENDW 
(IN)  (-) 

■rrI 

■M2 

1 CIRCULAR 

1 TOOTH 

DRIVING 

PERCENT  TO 
DRIVING  (-) 

Tl 

THICKNESS 

DRIVEN 

BACKLASH  {+) 

T2 

§ PRESSURE  ANGLE  (°) 

PA 

O 

CALCULATION  POINTS 

FI 

TOOTH  SPACE  ERROR  (IN)  - 

TSEl 

TSE2 

INTERNAL  (0)  OR  EXTERNAL  (1) 

MN 

NO  OF  FOURIER  TERMS 

MMM 

TOR3UE  (IN-LB)  - DRIVING 

TORK 

RPH  - DRIVING 

WS 

PLOT  (0  = NO,  1 =>  YES) 

IPLT 

deviation  from  STANDARD 

CENTER  DISTANCE  (IN) 

DEV 

DEVIATION  AND  COMPLIANCE  METHOD 

NZJ 

NOTES s * For  helical  gears  - input  operating  normal  values. 


**  Program  will  not  work  if  internal  gear  is  driving. 
Separate  numbers  by  2 spaces. 


Figure  4. 


Data  Input  Sheet  for 


Tregold's  Approximation, 
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.i 


i 

i 


§ 

6 


INSERT  CARDS  FOR  TOOTH 
PROFILE  DEVIATIONS  (IN) 


(Format  6El3 


5) 


DRIVING 

DRIVEN 


If  NZJ  = 0 or  3 


INSERT  CARDS  FOR  TOOTH 
COMPLIANCE  (IN) 

(Format  6E13-5) 


DRIVING 

DRIVEN 


T If  TORK  < 0 

§ INSERT  CARDS  FOR  VARIABLE 

S TORQUE  (IN-LB) 

i (Format  6E13.5) 


DRIVING 


T If  NZJ  « 1 or  4 

C-  INSERT  CARDS  FOR  TOOTH  PROFILE  DRIVING 
« DEVIATION  OF  4 POINTS  AT.ONG  " DRIVEN 

0 PROFILE  (OD^  KP,  Lt , TIP) 

1 (Format  Si!:! 


MODULUS  OF  ELASTICITY  - DRIVING 
POISSONS  RATIO  - DRIVING 

MODULUS  OF  ELASTICITY  - DRIVEN 
POISSONS  RiVTIO  - DRIVEN 


T 1£  J < 0 


-i- 


MATERIAL 
PRCPEP  XES 


UJl 

UJ2 


ZJI 

ZJ2 


TOR 


YE  (1) 
POS(l) 
YE  (2) 
POS(2) 


Figure  4. Continued. 


TRtGOLD  approximation  FOR  CQUIVAt.ENT  SPUR  GEARS 


SPIRAL  RFVEL  GFAR  FEStCN  DAtA  GF.AR  NO.  1 


NUMBER  OF  TEETH  - SPIRAL  BEVEL 

29.000000 

PITCH  CONE  ANGLE  - SPIRAL  BEVEL 

31  .649970 

DEGREES 

SiHRAL  angle  of  SPfRAL  HEWCL 

' 24.999980 

DEGREES 

FACT  WIDTH  OF  SPIRAL  FEVLL 

2.188000 

INCH 

PITCH  RADIUS  OF  SPIRAL  OEV'L 

3.7T5059 

INCH 

MEAN  PITCH  RADIUS  OF  SPIRAL  BEVEL 

3.201014 

INCH 

RATIO  OF  RADII  CF  SPIRAL  BEVEL 

0.847937 

INCH 

ADDENDUM  CF  SPIRAL  BEVEL  AT  LARGE  END 

0.297000 

INCH 

riFbFNnUH  OF  spiral  BFVEL  AT  LARGE  END 

0.195000 

INCH 

WORKING  depth  OF  SPIRAL  BEVEL  AT  LARGE 

END 

0.443000 

INCH 

CIR. TOOTH  THICKNESS-SPIRAL  REVEL-LARGE 

END 

0.506000 

INCH 

MEAN  CIR. TOOTH  THICKNESS-SPIRAL  BEVEL 

0.3BB85S 

INCH 

EOUIVALEN  T 

HELICAL  GEAR  GEAR  NO. 

1 

EQUIVALENT 

NUMHER  of  teeth  - HELICAL 

34 .066570 

EOUIVALCNT 

FACf  width  -■  HEL  TCAL 

2.188000 

INCH 

EOUIV  ALENT 

PITCH  RADIUS  - HELICAL 

3 .760261 

I NCH 

equivalent 

AUOEHDUM  - HEt ICAL 

0.251857 

INCH 

EQUIVALENT 

OUTER  RADIUS  - HELICAL 

4.012097 

INCH 

ECIUIVALENT 

OFCENOUM  - helical 

0.165348 

INCH 

equivalent 

ROOT  RADIUS  - HELICAL 

3.594913 

INCH 

EOUIVALEN  T 

WORKING  DEPTH  - HELICAL 

0.375636 

INCH 

equivalent 

T.  1 .F.  RADIOS  - HELICAL 

5.636460 

INCH 

EQUIVALENT 

CIRCULAR  tooth  THICKNE SS-HEL IC AL 

0.588858 

INCH 

EQUIVALENT 

RADIAL  CLEARANCE -HELICAL 

0.041S48 

INCH 

EQUIVALENT 

tooth  fillet  JIADIUS-HELICAL 

0.031161 

INCH 

ecuivaIe'nt' spur'gear  gear  no.  1 


LOUIVALCN'T 
ECmVALEM 
rnUlVALEUT 
E Cl  Ci  VALENT 
EOUIVALEM 

eooivalevc 

'ERUiVAl.EflT 
Efi  UI VALENT 
_EQUIVALENT 
EOUIVALfNT 
EOUTVALE'-T 

rnillVALFNT 


Mr'RER  OF  TFETH  - SPUR 

F ACC  UI DTH  - SPUR 

PITCH  RAF  I US  - SPUR 

45.761130 

2.414182 

4 .57787  1 

I NCH 
INCH 

ADDENDUM  - SPUR 

0 .251837 

INCH 

CUTER  RADIUS  - SPUR 

4.829708 

1 NCH 

rSETHDUM  ’ SPUR 

0.165348 

I NCt< 

FOOT  »<ADIUS  - SPUR 

4 .4  12523 

INCH 

UOFKI.Ng  CFPTH  - SPUR 

0.375636 

INCH 

T.l.F.  RADIUS  - SPUR 

4 .454  071 

I NCH 

CIFCILAR  TOOTH  THICKNESS-SPUR 

0.388858 

I NCH 

RACIAL  clearance-spur 

0.041548 

INCH 

TOOTH  fillet  radius-spur 

0.031161 

INCH 

A 


Figure.  5.  Sample  Output  from  Tregold's  Input  Generator; 

Punched  Output  Provided  fo.r  GGEAP./HCP.  (r<-75)  . 
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TRCGOLn  AFPROXIRATION  FOR  CQUIVALENT  SPUR  GEARS 


SPIRAL  PEVEL  GEAR  DESIGN  DATA  GEAR  NO. 


NUUBEP  OK  TEETH  - SPIRAL  REVEL 
PITCH  CONE  ANGLE  - SPIRAL  BEVEL 
SPIRAL  ANGLE  OF  SPIRAL  REVEL 
FACE  WIDTH  OF  SPIRAL  REVEL 
•’ITCH  RADIUS  OF  SPIRAL  REVEL 
^AR^TTCll  RAo!iiS“BF  SPIRAL  BEVtC 
RATIO  OF  RADII  CF  SPIRAL  BEVEL 
AODENDUH  OF  SPIFAL  REVEL  AT  LARGE  END 
'CrTTTEiPuH'LpT  sPl  R AL  “eF  VEL  AT  LaRgE  END 
WORKING  OEPIH  OF  SPIRAL  BEVEL  AT  LARGE  END 
CIR. TOOTH  THICKNESS-SPIRAL  BEVEL-LARGE  END 
HrAV'  C IRVTOffTFT-Tin  tKNC&S-SP  J ft AL  BTVCL 


51  .000000 
67.5A9RfeO 
?A  .999960 
2 .1  BROOO 
G .638R96 
5.629280 
0.8A792A 
0.196000 
0 .396000 
0.993000 
0.312000 


DEGREES 

DECPf  ES 

INCH 

1 1.CH 

ifiCH 

INCH 

INCH 

Tnch  “ 

»NCH 
1 NCH 
INCH 


EOUIVALENT  HELICAL  GEAR 


GEAR  NO. 


EOUIVALENT  NUnPER  OF  TEETH  - HELICAL 
EOUiVALENT  FACE  WIDTH  - HELICAL 
EOUIVALENT  PITCH  RADIUS  - HELICAL 

EQUIVALENT  ADOENDUH  - HELICAL 

COUlVALENt  OUTER  RADIUS  - HELICAL 
EOUIVALENT  DEOLNOUM  - HELICAL 

EQUIVALENT  ROOT  RADIUS  - HELICAL 

TOUIvALCNI  WORKING  DEPYh  - HELICAL 
EOUIVALENT  T.I.F.  RADIUS  - HELICAL 

EQUIVALENT  CIRCULAR  TOOTH  THICKNESS-HELICAL 

EQUIVALENT  KAdIal  CLEARANCE -IICLICRt 
EOUIVALENT  TOOTH  FILiET  RADIUS-HELICAL 


132  .426900 
2 .1  H8000 
19.616960 

0.1  23  79/ 

19.790760 
0.293382 
19.323580 
0. 376650 
19 .3651 30 
0.239767 
0.091599 
0.031162 


1 NCH 
1 NCH 

Lneh 

INCH 
INCH 
_1  NCH 
I NCH 
INCH 
1 NCH 
INCH 
INCH 


EQUIVALENT  SPUR  GEAR  GEAR  NO* 


EOUIV 
EOUI  V 
EOUIV 
EOUi  v' 
EOUIV 
_eouiv 
E Q ti  1 V 
EOUIV 
EOUI  V 
EOUIV 
EOUIV 
EOUIV 


ALENT 

ALCNT 

AIENT 
ALENT 
ALENT 
ALENT 
ALFN  T 
ALCNT 
AI.ENT 
ALE  N T 
ALENT 
ALENT 


NU^fER  of  teeth  - SPUR 
FACE  WIDTH  - SPUR 

PITCH  RADIUS  - SPUR 

■ad'DENDUH  - SPUR 
OUTER  RADIOS  - SPUR 

ClOEaOU^-  spur 

PCOT  RADIUS  - SPUR 
WORKING  PERTH  - SPUR 

T.  I .F.  RADIUS  - SPUR 

circular'  TOOTH  TH 1 CKNE SS-SPOR 
'’ADIAL  CLEARANCE-SPUR 
TOOTH  FILLET  RADIUS-SPUP 


1 77.886900 
2.9 19182 
17.795190 
0.123797 
17.918990 
_ 0.293382_ 
17.501800 
0.376630 
_il .593350 
0.239767 
0.091550 
0.031162 


Figure  5. Continued . 


me  FOLLOWING  1 S IHF.  PUhCHCO  INPUT  rOB  W-7G  6CCAN/HC> 


CABb'NUHBCB") 


CH-A7C  fOBMtBO  »WXN  &P1BAL  atVCL  NLSH 


lABD  NUnOCB  2 


NNC 

INT 

MN 

HNN 

JPLl 

I FOUR 

ISPCCT 

IHICR 

1 

B 

* 

10 

D 

1 

1 

0 

CAftn 

NUNBfB  2A 

IBM 

IF'f  RC 

IRF 

IPROP 

1CFN7 

n;  j 

lOIAG 

0 

0 

1 

0 

0 

2 

0 

LARD 

NunecR  i 

ANl 

f N2 

DPI  r 

PANG 

RGl 

RO?  OR  RI2 

TCU  SO 

1 I 7 .066400 

4 .V9&C6Q 

22.GOOOOO 

4 .R?<A7(ia 

1 7.4U^F90 

CAHO  hUniiCR  4 


RPi-" 

4 



1 7 .50  IFOO 

f I 

12  .ooor-io 

Tl 

O.SRBR&ft 

CARD 

hunocA  9 

72 

FI 

RF  1 

Rf  ? 

0«?197L7 

2«4141B2 

2«4t4lR7 

6.0S1161 

•«0S11G2 

CARO 

NUPPCR  7 

a 

vrn 

VP  72 

O.O^ObOO 

0.000^00 

_ __ 



CARDS  NUNBCn  BC 


"•«M 


O.S0400( 
0 « soAoor 

tCP 

Ob 

0\ 

o.AOaOOC  05 
n.jo4oor  05 

0«)0400C  ot 

O.SOAOOI  05 

e.50480C  05  0.)04D0r  05 

O.S0400C  05  fi.50400C  05 

o.soADor 

O.SOAOOL 

05 

05 

0 .\/^Abo( 
0.374riCF 
o.lOAOor 

oi 

05  . 
05 

o.i^Aabr  b? 
O.lOAOOf  05 

0."!;0  4‘o6T  05 
0.30400C  05 

o.SoAobc  0$  oTSo'^bOc  05 
0.30400C  05  b.504D9t  05 

o»5r40or 

ft.50490L 

05 

05 

CiR(< 

' f'u“.etR  0 

w< 

1 7AG0.0 


% 


4 


Figure  5.  Continueci. 
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TREGOLC  APPROXIMATION  FOR  EQUIVALENT  SPUR  GEARS 


EQUIVALENT 

SPUR  GEAR  GEAR  NO.  1 

EQUIVALENT 

nuMUER  of  teeth  - SPUR 

28.000000 

eouiv A L C N f 

EACE  WIDTH  - SPUR  ; 

' . 1.77006r 

INCH 

equivalent 

riTCP  RADIUS  - SPUR 

2.799999 

1 NCH 

EQUIVALENT 

AQDENUUM  - SPUR 

0.2000DO 

INCH 

" EQUU'ALENf 

CUTER  RADIUS  - SPUR. 

2.999999 

INCH 

EQUIVALENT 

DFPINOUR  - SPUR 

0.232500 

INCH 

EQUIVALENT 

ROOT  RADIUS  - SPUR 

2.567999 

INCH 

equivalent 

WORKING  DEPTH  » SPUR 

0.399000 

INCH 

equivalent 

T.I.F.  RADIUS  - SPUR 

2,600999 

INCH 

EQUIVALENT 

CIRCULAR  TOOTH  THl CR NESS-SPUR 

0.27A5D0 

INCH 

TlJUl  Talent 

radial  clearance -spur 

0.O33S00 

INCH 

EQUIVALENT 

TOOTH  FILLET  RAOlUS-SPUR 

0.025125 

INCH 

Figu.-e  5.  Continued. 
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TOEGOLO  Aff'P  O^X  J KATIOH  FOR  tOUIVALLNT  SPUR 


eOUlVALENT  Spun  GEAR 


rOUlVtLCNT  Uun’ofR  OF  ttCTH  - SPUR 

ToliT  vM  tUt  i id  a Torn  -'  SPbR  ' 

CQUIVAICUT  PITCH  RADIUS  “ SPUR 
com  -alFNT  ADOCPOUH  - SPUR 
COliiVAl.ENi  'OUT'.I'  f'aoIUS  - SPUR 
EOUIVALCNT  rtntUOUM  - SPUR 

EQUIVALENT  pnOT  RADIUS  - SPUR 

CfruiVALEfiT  UOfiKlNG  OtPTM  - SPUR 
COUIVALENT  T.I.F.  RADIUS  - SPUR 
.EQUIVALENT  CIRC l.'LAR  T OOTH  THI CRNES S-SPUR 
EQUfvALf'NT  pToiAL  CLE  ARANCt-SPUR 
EQUIVALENT  TOOTH  FILLET  RADIUS-SPUR 


Figure  5.  Continued. 
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MESH  DYNAMICS  FOR  HIGH-CONTACT -RATIO  SPUR  GEARS  (R-75) 


PROGRAM  DESCRIPTION 

A method  has  been  developed  for  predicting  the  level  and 
character  of  gear-meah-induced  vibrations  in  high-contact- 
ratio  spur  gears.  The  vibration  eunplitude  is  calculated  with 
consideration  of  load  sharing  among  pairs  of  engaging  gear 
teeth.  In  addition  to  tooth  compliance,  which  varies  along 
the  length  of  the  tooth,  tooth  profile  error  and  tooth  spacing 
error  are  also  included  in  the  load  sharing  computation-  The 
spectrum  of  the  vibration  is  obtained  by  performing  a Fourier 
analysis  of  the  calculated  mesh-induced  profile  of  deviation 
from  uniform  rotation.  The  frequency  spectra  of  gear-mesh- 
induced  vibrations  and  the  load  sharing  characteristics  of  a 
set  of  high-contact-ratio  spur  gears  were  calculated,  and  the 
results  are  discussed.  This  method  of  analysis  is  useful  for 
designing  low-vibration  gears  by  properly  controlling  relevant 
gear  parameters. 

The  meshing  of  gears  introduces  vibration  because  of  the  non- 
uniform  deflection  resulting  from  varying  tooth  compliance 
along  the  length  of  the  tooth,  errors  in  manufacturing,  flex- 
ibility and  accuracy  of  mountings,  and  varying  tooth  load 
through  sharing  during  the  course  of  meshing.  This  nonuniform 
deflection  or  displacement  deviation  introduces  irregular 
motion,  superimposed  on  the  uniform  rotation  of  gears,  which 
becomes  one  of  the  major  sources  of  vibration  in  a drive  system. 
This  irregularity  of  motion  was  recognized  in  the  mid  1960 's, 
and  was  analyzed  as  the  initial  step  (Reference  2)  in  the 
development  of  an  approach  to  the  reduction  of  gear  noise. 

Later  efforts  confirmed  the  precise  source  of  the  noise  and 
recognized  it  as  a mechanical  vibration  problem  (References  1, 

8,  9,  10,  and  11),  The  validity  of  the  entire  concept  and  ap- 
proach was  experimentally  verified  as  reported  in  Reference  12. 


8.  Badgley,  R.  H. , MECHANICAL  ASPECTS  OF  GEAR-INDUCED  NOISE 
IN  COMPLETE  POWER  TRAIN  SYSTEMS,  ASME  Paper  No.  70-WA/ 
DGP-1,  Presented  at  the  ASME  Winter  Annual  Meeting,  New 
York,  December  1970, 

9.  Badgley,  R.  H. , GEARBOX  DYNAMICS  — THE  KEY  TO  UNDERSTAND- 
ING AND  REDUCING  ACOUSTIC-FREQUENCY  ENERGY  IN  GEARED  POWER 
TRAINS,  Presented  at  the  Meeting  of  the  Aerospace  Gearing 
Committee  of  the  American  Gear  Manufacturers  Association, 
Cleveland,  Ohio,  January  17-18,  1972. 

10.  Badgley,  R,  H. , and  Chiang,  T. , INVESTIGATION  OF  GEARBOX 

DESIGN  MODIFICATIONS  FOR  REDUCING  HELICOPTER  GEARBOX  NOISE, 
Mechanical  Technology  Incorporated,  USAAMRDL  Technical 
Report  72-6,  U.  S.  Army  Mobility  Research  and  Development 
Laboratory,  Fort  Eustis,  Virginia,  March  1972,  AD742735. 
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More  recent  efforts  have  incorporated  this  new  approach  into 
the  design  and  redesign  of  gearbox  components  (References  4 
and  13) . Simultaneously,  additional  techniques  have  been 
added  (References  7 and  14)  to  the  mesh  vibration  analysis  to 
treat  various  mesh  irregularities.  In  this  work  a method  of 
computing  the  gear-induced  vibration  and  the  associated  fre- 
quency spectrum  for  high-contact-ratio  spur  gears  is  developed. 
The  range  of  contact  ratio  xinder  consideration  is  between  1 
and  3;  thus,  there,  are  up  to  four  pairs  of  teeth  in  contact 
simultaneously  for  the  spur  gears  being  investigated.  The 
method  of  load  sharing  calculation  and  the  computation  of 
mesh  displacement  deviation  due  to  tooth  bending,  shear 
deflection,  contact  surface  deformation,  support  flexibility, 
and  tooth  profile  errors  for  high-contact-ratio  spur  gears  are 
presented.  These  methods  are  generalized  from  those  of 
Reference  7 which  is  limited  to  spur  gears  with  contact  ratio 
between  one  and  two. 

The  limitations  and  assumptions  in  the  calculations  are; 

1.  Two  cases  of  spur  gears  are  treated;  an  external  gear 
driving  an  external  gear,  and  an  external  gear  driving  an 
internal  gear. 

2.  The  working  portions  of  the  tooth  profiles  are  fcs.ccntially 
involute.  Design  and  manufacturing  profile  deviations  are 
small  enough  not  to  affect  load  location,  load  direction, 
or  tooth  stiffness. 


11.  Badgley,  R.  H.,  REDUCTION  OF  NOISE  AND  ACOUSTIC-FREQUENCY 
VIBRATIONS  IN  AIRCRAFT  TRANSMISSIONS,  AHS  Paper  No.  661, 
Presented  at  the  28th  Annual  National  Forum  of  the  Ameri- 
can Helicopter  Society  of  Washington,  D.C.,  May  1972. 

12.  Badgley,  R.  H. , and  Hartman,  R.  M. , GEARBOX  NOISE  REDUC- 
TION: PREDICTION  AND  MEASUREMENT  OF  MESH-FREQUENCY 

VIBRATIONS  WITHIN  AN  OPERATING  HELICOPTER  ROTOR-DRIVE 
GEARBOX,  ASME  Paper  No.  73-DET-31,  Presented  at  the  ASME 
Design  Engineering  Technical  Conference,  Cincinnati,  Ohio, 
September  9-12,  1973. 

13.  Chiang,  T. , and  Badgley,  R.  H. , REDUCTION  OF  VIBRATION  AND 
NOISE  GENERATED  BY  PLANETARY  RING  GEARS  IN  HELICOPTER 
AIRCRAFT  TRANSMISSIONS,  ASME  Paper  No.  72-PTG-ll,  Presented 
at  ASME  Mechanisms  Conference  and  International  Symposium 
on  Gearing  and  Transmissions,  San  Francisco,  California, 
October  8-12,  1972. 

14.  Gu,  A.  L.,  and  Badgley,  R.  H.,  PREDICTION  OF  VIBRATION 
SIDEBANDS  IN  GEAR  MESHES,  ASME  Paper  74-DET-95,  Presented 
at  the  Design  Engineering  Technical  Conference,  New  York, 
New  York,  October  5-9,  1974. 


3.  There  is  no  tip  interference,  either  due  to  excessive 
addendum  length  or  to  tooth  deflection  under  load. 

4.  In  any  single  interval  between  the  pitch  points  of  two 
successive  pairs  of  teeth,  contact  and  load  sharing  are 
limited  to  a maximum  of  four  consecutive  pairs  of  teeth. 

In  the  same  interval,  there  must  at  all  times  be  at  least 
one  pair  of  teeth  in  contact  and  carrying  load.  Thus,  the 
contact  ratio  of  the  gears  is  limited  to  between  one  and 
four, 

5.  The  load  is  assumed  to  be  transmitted  uniformly  across  the 
face  of  the  gear,  except  for  normal  end  effects  in  stress 
distribution.  This  excludes  any  consideration  of  face 
crowning,  lead  modification,  lead  manufacturing  error, 
gear  windup,  or  nonunifcrm  deflection  of  gear  supports. 

6.  All  variations  in  tooth  deflection  as  the  load  point  moves 
along  the  tooth  profile  are  either  confined  to  elastic 
effects  on  the  tooth  alone  or  are  supplied  as  point-by- 
point compliances  in  the  input  data.  This  means  that 
variations  such  as  might  result  from  the  deflection  of 
the  thin  rims  are  not  calculated  by  the  analysis. 

7.  Any  lubricant  film  separating  the  mating  teeth  is  assumed 
to  have  a constant  thickness  independent  of  the  magnitude 
or  the  location  of  the  transmitted  load.  The  contact 
deformation  is  assumed  to  be  independent  of  the  lubri- 
cating film. 

In  the  calculation  of  load  sharing  among  tooth  pairs  in 
contact  and  the  tooth  deflection  during  a mesh  cycle,  tooth 
compliance  is  first  computed  point-by-point  along  the  tooth 
profile  for  both  the  driving  and  driven  gears.  The  basic 
kinematics  of  an  involute  spur  gear  mesh  for  high-contact-ratio 
spur  gears  is  described  below.  Although  external  involute 
spur  gears  are  used  in  the  example,  the  case  of  an  external 
gear  driving  an  internal  gear  may  be  treated  similarly.  In 
Figure  6 , 0 is  the  gear  center,  0p  the  pressure  angle,  Rp 
the  pitch  radius,  Rb  the  base  radius,  and  Rq  the  outside 
radius.  Subscript  "1“  stands  for  the  driving  gear  and  "2"  for 
the  driven  gear.  Segment  bib2  is  the  arc  of  action,  which  is 
the  course  of  the  contact  point  during  mesh.  Tooth  contact 
begins  at  b , where  the  tip  of  the  driven  tooth  first  touches 
the  flank  or  the  driving  tooth,  and  the  mesh  cycle  ends  at  b_, 
where  the  tip  of  the  driving  tooth  last  contacts  the  flank 
of  the  driven  tooth.  Figure  6 shows  the  contact  occurring  at 
the  pitch  point  A.  In  Figure  7,  X is  an  arbitrary  contact  point 
lying  on  the  arc  of  action  b^^b^.  and  '<7 ^ bhe  instanta- 

neous velocities  of  the  contact  points  on  the  two  meshing 
teeth.  The  contact  tangent  plane  is  always  perpendicular  to 
the  arc  of  action.  P and  are  the  normal  load  and  tangential 
load,  respectively,  shared  by  the  pair  of  contacting  teeth. 
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To  check  for  engagement  between  the  teeth  of  one  meshing  pair 
at  any  rotational  position,  the  particular  value  of  or 
IS  compared  to  the  angles  of  approach  and  recess,  ^Ai  andoC, 
respectively,  which  limit  the  range  of  engagement  (see  Figure 
8 ) . Engagement  is  possible  only  when 

cKj^l  > c^ji  ^ ^A1 

and 

^.R2  — *’^2  — ^A2 

It  is  noted  that  o<a1  ^ 8/  since  a rotation  backward  from  the 
pitch-point  contact  is  required.  The  angles  of  approach  and 
recess  may  be  expressed  as  follows  (Reference  2) : 


(5) 


R1 


■V 


ol 


- 1 - tan  ^ 


(6) 


where 


P 


ol 


P 


o2 


(7) 

(8) 

(9) 

(10) 


When  more  than  one  pair  of  teeth  are  engaged  in  mesh  instanta- 
neously, the  points  of  contact  on  the  successive  meshing  teeth 
from  the  same  gear  have  a fixed  relationship  as  shown  in 
Figure  9. 
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Figure  9.  Three  Successive  Pairs  of  Teeth  in  Mesh. 
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where  superscript  (j)  stands  for  jth  pair.  For  high-contact- 
ratio  spur  gears  in  generals  the  above  relationship  nay  be 
general ized  to  ' , i 
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The  division  of  transferred  tooth  load  among  the  tooch  pairs  , 
that  aie  simultaneously  in  contact  was  deteriniaed  from  a 
consideration  of  gear  tooth  compliances  and  tl'.e  relevant  iiianu- 
factvring  errors  for  the  contact  points.  Letting  the  meshing 
pairs  be  denoted  by  superscript  (i)  and  (j)  = (j-)  r ('j+Df..-, 
(-1)  , (0),  (1)  (j+  -1),  and  (j^.)  successively,  the 

total  number  of  pairs  of  teeth  in  mesh  instantaneously  is 
( Ij-.!  r + 1).  It  is  noted  that  j_  < 0,  and  j+  > 0.  Using 
(0)th  and  (l)th  pair  of  gears  as  representative,  a schematic 
diagram  of  displacement  deviation  and  load  sharing  relationship 
3s  shown  in  Figure  10.  The  gear  teeth  are  represented  as 
slender,  spring-like  members  with  deflectinng  (B)  caused  by 
their  respective  loads.  Profile  errors  (Z)  at  the  points  of 
contact  are  shown  as  buttons  interacting  with  the  deflections 
jf  the  spring-teech.  Tooth  spacing  errors  (V)  are  pi.ctured 
as  offsets  in  the  projections  of  the  bases  of  the  spring-teeth. 
The  deviation  (Vj^j)  in  tne  position  of  the  driven  gear  rela- 
tive to  the  driving  gear  of  the  (0)th  pair,  which  resul*';s 
from  the  combination  of  deflections  and  errors,  is  shown  by 
the  offset  between  the  base  of  the  (0)th  pair's  spring-tocth 
on  the  driving  gear  and  the  base  of  the  meshing  spring-tooth 
on  the  driven  gear.  The  profile  errors,  the  tooth  spacing 
errors,  and  the  position  deviationr  are  all  measured  along 
the  line  of  action  inormal  to  the  tooth  surface) . To  separate 
the  effects  of  profile  error  and  tooth  >jpacing,  the  former 
is  defined  as  zero  at  the  pitch  point  and  the  latter  is 
measured  between  pitch  points  of  suoce.ssivs  ueoth.  To  be 
consistent  with  the  requirement  of  direction  along  thu.^  line, 
of  actioi,,  the  tooth  spacing  error  as  measured  bfitween  pilch 
points  must  be  multi.p.iied  by  the  factor  cos  0p.  (2)  is 

positive  if  material  is  added  to  the  true  involvite.-  and 
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Figure  10.  Schematic  Diagram  of  Displacement  Deviation 
and  Load  Sharing  Relationships, 


negative  if  material  is  subtracted;  (V)  is  positive  if  the 
tooth  spacing  is  smaller  than  the  desired  spacing. 

The  chain  of  displacements  shown  in  Figure  10  yields  the 
following  equations: 
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For  simplification,  define 


+ Z 


(j) 

J2 


<17) 


and  express  deflections  in  terms  of  loads  and  elastic  compliancess 
of  tooth  as  follows: 
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+ U 


(J) 

12 


(18) 


where 


((j)  ^ g(j) 


“J1 


J2 


(19) 


In  the  above,  and  Qjp/  are,  respectively,  the  tooth  compli- 

ance at  the  Jth  calculation  point  of.  the  tooth  profile  of  the 

driving  and  driven  gears.  represents  any  additional 

combined  tooth  support  compliance  of  the  tooth  pair. 


Substituting  Equations  (17)  and  (18)  into  (15)  and  (16) , 

,(0) 
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From  the  above  derivation  and  the  deflection  and  load  sharing 
diagram  shown  in  Figure  10,  Equations  (20)  and  (21)  may  be 
generalized  to  apply  to  the  mesh  system  whe  re  there  are 
( jj-|  + j+  + 1)  pairs  of  teeth  that  contac  j instantaneously: 


'J  .NJ 
for  j ^ j+ 


NJ 


zj-»  + (Vji 


Vpz)  j 


(22) 


The  sum  of  the  transferred  loads  is  equal  to  the  total  normal 
tooth  load. 


I 


W. 


(j)  _ 


NJ 


= W. 


(23) 


j=j. 


The  system  of  Equations  (22)  and  (23)  consists  of(  IjJ  + j+  + 2) 

( t)  ^ ' 

linear  equations  in  W„d'  and  V„_.  It  may  be  solved  by  standard 

Na  NJ 

method  of  matrix  inversion  to  obtain  the  transferred  load 

distribution  vSV  and  the  noirmal  displacement  deviation 

If  is  found  to  be  less  than  zero,  it  means  that  the 

NJ  , . , 

(j-)th  pair  is  no  longer  in  contact.  Consequently, 

N J 

should  be  set  equal  to  zero  and  a new  j_  that  equals  the  old 

j_  plus  1 should  be  used.  Similarly,  if  is  found  to  be 

/ . . NJ 

less  than  zero,  should  be  set  zero  and  a new  j+  that 

N J 

equals  the  old  minus  1 should  be  used . 

The  pitch  line  deviation  Vj  is  related  to  the  normal  deviation 
Vnj  by 


V. 


"NJ 
cos  i’ 


(24) 


Vj  is  computed  and  recorded  from  one  calculation  point  to  the 
next  point  by  varying  j from  0 to  Nj.  The  total  interval 
corresponds  to  one  mesh  cycle,  and  all  teeth  rotate  an  angle 
of  -^t  J = 0,  the  (0)th  pair  may  be  set  at  the;  pitch" 

point  position  and  thus  ~ *^02^  -•  0.  At  any  intermediate 
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J,  and  21*^®  calculated  from  Equations  (1)  and  (2)  . 

The  rotational  positions  of  other  engaging  teeth  may  be 
obtained  from  Equations  (13)  and  (14) , and  the  engagement 
condition  given  in  Equations  (3)  and  (4)  may  be  examined.  At 
J = Nj  the  (l)st  pair  of  teeth  moves  to  the  pitch-point  posi- 
tion and  a new  mesh  cycle  begins.  The  frequency  spectrum  of 
the  gear-mesh- induced  vibration  is  then  obtained  by  a Fourier 
analysis  of  the  tooth  displacement  deviations. 

In  the  computation  of  mesh  excitation  expressed  in  terms  of 
deviation  from  true  conjugate  action,  tooth  deflection  due  to 
elastic  compliance  as  well  as  tooth  profile  error  and  tooth 
spacing  error  are  considered.  The  consideration  of  the  combined 
tooth  compliance  is  similar  to  that  given  in  Reference  2. 

The  combined  compliance  is  the  sum  of  the  compliances  of  the 
two  contacting  teeth. 


+ Q 


(J) 

J2 


(25) 


where  the  subscript  J stands  for  the  jth  calculation  point 
along  the  involute  profile,  and  sxxbscripts  1 and  2 represent 
the  driving  and  driven  gears  respectively.  Superscript  (j) 
indicates  the  jth  contacting  pair  of  teeth. 


The  computation  of 
compliance  of  the  driving  gear. 


are 


similar; 
will  be 


thus,  only  the 
considered . 


The  effective  deflection  at  the  contact  point  (load  point)  in 
the  direction  of  the  applied  normal  load  is  the  quantity  of 
interest.  The  total  value  of  this  deflection  will  be  derived 
from  the  summation  of  four  individual  contributors,  each 
formed  by  applying  a simple  deflection  analysis.  These  four 
deflections  are: 

1.  Displacement  due  to  bending  of  the  tooth  as  a cantilevered 
beam,  (bII^)  . The  gear  tooth  is  treated  as  a sequence 

u X SL 

of  transverse  segments,  each  of  uniform  rectangular 
cross-section.  The  depth  of  the  uniform  section  is  taken 
as  the  average  of  the  depths  at  both  ends  of  the  segment. 
Figure  11  shows  an  external  gear  tooth  with  one  such 
segment.  Each  segment  will  be  identified  by  a K value 
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Figure  11.  Beam  Deflections  in  the  Gear  Tooth. 
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associated  with  its  outer  section,  and  the  K value 
increases  as  the  section  moves  out  toward  the  tip  of  the 
tooth.  The  selection  of  the  location  of  each  K section 
may  be  made  to  correspond  to  the  location  of  each  of  the 
Nj  calculation  points,  as  long  as  the  Nj  points  are 
sufficiently  close  to  each  other.  In  Figure  11,  J repre- 
sents the  point  at  which  the  load  is  applied.  The  angle 
r J gives  the  direction  of  this  load  relative  to  the  tooth 
centerline.  The  analysis  which  follows  traces  the 
contribution  of  each  K segment  to  the  displacement  at  the 
point  J,  which  itself  remains  fixed.  As  the  mating  gear 
rotates,  J moves  into  successive  positions,  and  the 
deflection  calculations  must  be  repeated  for  each  new 
position. 


The  moment  of  inertia  of  the  rectangular  cross-sectional 
area  at  K may  be  expressed  in  terms  of  the  Y-coordinate 
and  the  tooth  face  width  F . 
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2^ 
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(26) 


At  the  K-1  cross-section,  which  is  the  other  end  of  the 
K segment. 


^-1 


!!!Li 

3 


(27) 


For  the  assumed  uniform  cross-section  of  the  segment 
between  K and  K-1,  the  mean  of  the  two  moments  of  inertia 
will  be  used. 

T . (28) 

2 


In  the  same  manner,  the  mean  area  for  the  two  cross- 
sections  may  be  found: 


F(2Yj^)  = 2FY^ 

(29) 

(30) 

A . + A..  . 

K K-1 

(31) 
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The  length  of  the  K segment  is 


he  ■ \ - h(-l 


(32) 


The  distance  of  the  K segment,  at  its  outer  end,  from  the  point 
J of  load  application  is  similarly  found: 


^JK  - \ 


(33) 


In  Figure  11,  the  normal  load  at  j acting  on  the  cantilevered 
gear  tooth  is  equivalent  to  a concentrated  transverse  load 

equal  to  cos 

7.  > NJ 

"nj  '^J 

In  the  bending  of  the  tooth,  each  of  these  load  conditions 
causes  a transverse  displacement  and  a rotation  of  the  tooth 
centerline  under  the  point  of  load  application.  These  two 
displacements  will  be  evaluated  for  each  of  the  two  load 
conditions  and  then  combined. 


^ , and  a counterclockwise  moment  being 


The  first  case  considered  is  that  of  a tooth  segment  subjected 
to  a transverse  load  applied  some  distance  away,  with  the 
rest  of  the  gear  tooth  serving  as  a rigid  support  of  a rigid 
extension  (Figure  12a) . 


From  standard  beam  deflection  theory,  the  transverse  deflection 
at  the  load  is 


a L 


2 E I, 

V *K. 


(34) 


The  centerline  rotation  at  the  load  is 


al 


cos  ^If  L 
NJ  J K 

2 E 

V K 


(35) 


in  the  above,  E^is  the  effective  bending  modulus  of  elasticity 
for  gears  whose  face  width  is  large  compared  to  the  tooth 
thickness : 
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Figure  12.  Beam  Deflection  Diagrams. 


where  E is  the  Young's  modulus  of  elasticity  and  y the  Poisson's 
ratio.  If  the  gear  tooth  is  narrow  relative  to  its  thickness, 
the  factor  1 should  be  eliminated. 


The  second  case  considered  is  that  of  the  tooth  segment  sub- 
jected to  a moment  load  applied  some  distance  away,  with  the 
rest  of  the  gear  tooth  serving  as  a rigid  support  or  a rigid 
extension  (Figure  12b) . 

From  the  beam  deflection  theory,  the  transverse  deflection  at 
the  load  is 


a2 


sin  4 Y L 
NJ  M J K 

2 E 

V K 


(37) 


The  centerline  rotation  at  the  load  is 


^JlK'a2 


-W<j>-»ln  ij 

'v  h 


The  deflections  for  each  tooth  segment  may  be  summed  to  yield 
the  total  transverse  deflection  at  the  load  , and 

/ J \ i S-L  / » \ 

centerline  rotation  at  the  load  (y  ji  gi 

The  displacement  in  the  direction  of  the  load  (Figure  12)  due 
to  a transverse  deflection  By  and  a centerline  rotation  y j is 

Bj  - By  cos  - Yj  Vj  Sin  Vj  (3^) 

By  summing  the  deflections  for  all  tooth  segments  and  computing 
the  displacement  due  to  the  concentrated  load  and  moment  load 
together,  the  total  displacement  of  the  tooth  in  the  load 
direction  is 
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' a 


W, 


<j) 

NJ 


3 ^ 


JK  K 


- sin  Vj  • + ZSj^) 


(40) 


+ sin  % 


'J  • ’'jZ" 


which  gives  the  total  deflection  from  the  bending  of  the 
tooth  loaded  as  a cantilevered  beam. 

Displacement  due  to  the  shear  deformation  of  the  tooth  as 
a cantilevered  beam,  ^b*  shear  deflection  of  the 

tooth  as  a cantilevered  beam  is  also  caused  by  the  trans- 
verse component  of  the  applied  load,  cos  ^j*  This 

deflection  offsets  the  centerline  without  rotating  any 
transverse  section.  The  deflection  at  the  load  point  then 
becomes  the  sum  of  the  deflections  for  each  of  the  tooth 
segments  defined  previously. 

The  individual  segment  subjected  to  the  shear  load  is 
represented  in  Figure  13,  with  the  rest  of  the  gear  tooth 
appearing  as  a rigid  support  or  a rigid  extension. 

From  standard  methods  for  beam  shear  deflection  analysis, 
the  transverse  deflection  when  the  cross-section  is 
rectangular  is 


(41) 


(42) 

where  G is  the  shear  modulus  of  elasticity. 


b 


cos  • 1^ 

GA„ 


Summing  the  deflection  for  all  segments  from  the  base  of 
the  tooth  to  the  applied  load  point  J, 


u 


Figure  13.  Shear  Deflection  Diagram. 


H 

i 


T 

Flexible 

Support 


Figure  14.  Base  Rotation  Deflection  Diagram. 
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(43) 
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NJ 


1.2W„'i'  cos  \lt, 


K 
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(44) 


To  obtain  the  resulting  displacement  due  to  the  shear 
deformation  of  the  tooth  as  a cantilevered  beam  in  the 
direction  of  the  load,  the  factor  cos  is  multiplied 

by  (b(3))  • 

Y1  b 


»®J1  I 


I- 

^ A„ 


(45) 


3.  Displacement  due  to  the  rotation  of  the  tooth  in  the 
supporting  structure  at  its  base,  (B(j))  . The  moment 

i7l  ^ 

that  causes  this  rotation  is  due  to  the  applied  load. 

The  transverse  component  of  this  load  cos  will 

(i)  (I  NJ 

create  the  moment  w'''  cos  T-r*  S_,  where  S_  is  the 

IMiJ  J J u 

distance  from  the  load  point  to  the  base  of  the  tooth. 

The  axial , component,  as  noted  previously,  will  create  the 

moment  W ^ ^ ^ sin  • 

NJ 

Figure  14  shows  this  loading  and  the  resulting  deflection 
in  simplified  form. 

The  equation  for  the  displacements  at  the  load  point  from 
Reference  15  is 


('in 


1.327W^^^  ' 


^NJ  ’^J  ’ S.T  - - 

E F 
V *E 


1.327Wj^j^  (cos  'i'j  ' Sj  - sin 


(46) 


(47) 


15.  O'Donnel,  W.  J. , STRESS  AND  DEFLECTION  IN  BUILT-IN  BEAMS, 
ASME  Paper  No.  62-WA-16,  1962. 
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The  resulting  displacement  in  the  direction  of  the  load 

due  to  the  rotation  of  the  tooth  in  its  supporting  structure 

is 


,(j) 


1.327W;|j^  (cosi'j.  Sj  - - sin^^.  Yj) 


E Y"  F 
V E 


(48) 


Displacement  due  to  the  contact  or  Hertzian  deformation, 
^Jl2^d*  deformation  is  based  on  a semiempirical 

equation  (Reference  16)  developed  for  a contacting  cylinder 
in  roller  bearings. 


12 


3xl0-‘. 

E 

0.8 

*^12 


where 


V ^2) 


(49) 


(50) 


" ■ '1 
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This  equation  treats  the  general  case  where  the  materials 
o£  the  two  mating  surfaces  may  have  different  properties. 
Subscripts  1 and  2 are  used  to  refer  to  the  two  surfaces. 
The  deflection  given  by  the  equation  is  for  the  two 
contracting  surfaces  combined;  hence,  the  notation  12  is 
used  in  the  subscript.  Since  the  face  widths  of  the  two 
surfaces  may  be  unequal,  F12  refers  to  the  effective  face 
width  of  the  combi.nat..'.on.  A suitable  approximation  of 
this  effective  face  width  is  the  smaller  of  the  two  widths. 


After  the  substitution  of  the  equation  for  a composite 
modulus  of  elasticity. 


l__  1 l_r_  _1_|  Kl 

®V12  “ M^l 


(51) 


Palmgren,  David,  BALL  AND  ROLLER  BEARING  ENGINEERING,  3rd 
Edition,  SKF  Industries,  Inc. 
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into  Equation  (50) , the  result  is  combined  with  Equation 
(49)  and  this  becomes 


^1.2  "■  ^0.9  _0, 8 '(52) 

®vl2  ^12 

'There  is  a major  difference  betv/een  the  conditions  applying 
to  a roller  between  hearing  races  and  those  applying  to  a 
loaded  gear  tooth.  Although  in  both  cases  contact  is 
between  cylindrical  surfaces,  the  nature  of  the  support  of 
the  bodies  witn  these  cylindrical  £<urfaces  is  quite 
different.  The  force  at  one  contacting  surface  on  the 
roller  is  opposed  by  an  equal  force  located  diametrally 
opposite.  As  a result  the  entire  roller  is  loaded  v;ith 
the  full  compressive  force,  and  the  deflection  given  by 
Equation  (52);  is  the  deflection  at  the  contact  point  and 
throughout  the  roller.  A gear  tooth  does  not  provide  the 
full  cylindrical  cross-section  of  the  roller.  ?urtherrnore , 
the  applied  load  is  not  supported  by  a diametrally  opposed 
force  but  by  the  shear  forces  distributed  across  the  base 
of  the  tooth.  The  first  item  calls  attention  to  a reduced 
material  cross-section  available  for  deformation.  The 
second  item  points  out  tnatj  d.ue  to  the  side  support,  the 
internal  loading  in  the  cross-section  of  the  tooth  is  not 
constant  but  reduces  with  increased  distance  from  the 
contact  point.  These  differences  make  the  contact 
deflection  in  gear  teeth  significantly  less  than  indicaced 
by  Equation  (52),  and  the  estimate  used  for  this  reduction 
in  deflection  is  50  percent.  This  correction  gives 
calculated  results  which  are  still  somewhat  larger  than 
the  experimental  results  to  which  they  were  compared. 
However,  the  apparent  excess  in  calculated  contact  deflec- 
tion v/iil  be  more,  than  offset  in  many  practical  applications 
by  the  increase  in  deflection  resulting  from  slight  errors 
in  the  contacting  surfaces. 

By  including  the  50  percent  correctioii.  Equation  (52)  may 
be  rewritten  to  adapt  more  closely  to  the  displacement  due 
to  Hertzian  deformation  of  contacting  gear  teeth. 
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From  the  four  displacement  equations,  (40),  (45),  (48),  and 

(53),  the  compliance  may  be  computed  from 

gCj) 

,<J)  - 


MX 


w 


(j) 

NJ 


(54) 


From  Equations  (40)  , (45)  , and  (48), 
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E I 
V K 


- C08  'ij  sin  • Y 
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LK 

K 

K 


1.327(cos  tlr  . S - sin  • Y.)^ 
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(57) 
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These  three  compliances  combined  may  be  viewed  as  the  total 
beam  compliance  of  the  driving  gear  tooth  of  the  jth  pair 


abc 


(58) 


The  total  beam  compliance  of  the  driven  gear,  n-.ay  be 

similarly  computed.  ^ 


The  contact  deformation  compliance  may  be  obtained  by  combining 
Equations  (53)  and  (54); 
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1.275 


pO.9  _0.8| 

\l2  ^12 


KiT‘ 


^59) 
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Equation  (59)  shows  that  the  compliance  is  somewhat  dependent 
on  the  value  of  the  applied  load.  Since  the  load  appears  to 
the  one-tenth  power,  there  will  be  little  variation  in, . . 
compliance  over  a reasonably  wide  range  of  load,  and 

may  be  replaced  by  an  average  value  covering  all  conditions 
of  loading  without  appreciable  error.  A suitable  average 
value  would  be  one-half  the  total  load  carried  by  the  gear 
teetii, 

and  then  Equation  (59)  becomes 

(qO)!  „ Ui (61) 

'^Jl2'd  0.9  0.8, ,0.1 

Ki2  ^2 

Because  this  relationship  is  independent  of  surface  curvature, 
it  will  apply  for  all  load  positions  and  for  both  the  case  of 
two  external  gears  and  the  case  of  one  external  and  one 
internal  gear.  The  contact  compliance  requires  the  additional 
input  information  of  the  total  transmitted  load  and,  in 
this  respect,  differs  from  the  other  compliance  components. 


In  summary,  the  total  elastic  compliance  of  the  jth  pair  mating 
gear  teeth  may  be  found  by  applying  Equations  (5.5)  , (56)  , and 
(57)  for  each  of  the  gears,  combining  the  results,  and  then 
adding  the  contact  compliance  for  the  two  gears  in  combination. 


'a  be 


J12'd 


(62) 
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SM4PLE  GEAR  MESH  DYNAMICS  CALCULATIONS 


A sat  of  high-contact-ratio  spur  gears,  described  in  Table  3, 
was  studied  using  the  analysis  previously  described.  The 
meshing  error,  tangential  tooth  load  sharing,  and  frequency 
spectr'jm  of  mesh  induced  vibration  are  shown  in  Figures  15,  16 
and  17  respectively.  In  each  figure,  there  are  three  curves 
representing  gears  with  (a)  perfect  tooth  profile  without 
spacing  error,  (b)  the  tooth  profile  modifications  listed  in 
Table  4,  but  with  no  spacing  error,  and  (c)  tooth  modification 
and  spacing  errors  of  0.000187  in.  for  the  driving  gear  and 
-0.000187  in.  for  the  driven  gear. 

The  tooth  meshing  error,  or  deviation  from  pure  conjugate 
action,  as  a pitch-line  linear  measurement  of  the  motion  of 
the  driving  gear  leading  the  driven  gear  is  shevm  in  Figure 
15  as  the  solid  curve.  The  mesh  cycle  is  represented  by 
25  calculation  points.  In  the  initial  period  of  the  mesh 
cycle  there  are  three  pairs  of  teeth  in  contact  simultaneously 
The  beginning  cf  the  mesh  cycle  corresponds  to  the  pitch- 
point  contact  of  the  middle  pair.  In  the  middle  of  the  cycle 
there  arc  only  two  pairs  in  contact;  therefore,  the  tooth 
meshing  error  experiences  a step  change.  Near  the  end  of  the 
cycle  a new  pair  of  teeth  engages  in  the  mesh  and  the  meshing 
error  drops  accordingly.  The  end  of  the  mesh  cycle  is  again 
a pitch-point  contact. 

The  tangential  load  shared  by  a tooth  during  its  meshing 
engagement  is  represented  by  the  solid  curve  given  in  Figure 
16.  A step  change  of  the  tangential  load  corresponds  to  the 
point  at  which  another  pair  of  teeth  comes  in  or  goes  out  of 
engagement.  The  pitch-point  contact  is  identified  in  Figure 
16.  The  mesh  cycle  over  which  the  tooth  meshing  error  is 
presented  in  Figure  15  is  indicated.  The  cycle  begins  when 
the  contact  is  at  the  pitch-point  of  the  tooth,  and  ends  when 
the  following  tooth  gets  to  the  pitch-point  contact  position. 

The  frequency  spectrum  of  the  gear-mesh-induced  vibration  is 
shown  in  Figure  17  and  is  identified  by  the  case  of  Zj  = 

Vp  = 0.  In  the  figure,  fj^j  is  the  mesh  frequency.  It  is  seen 
that  the  spectrum  is  discrete  and  the  amplitude  decreases 
with  increasing  frequency. 
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TABLE  3. 

GEAR  DATA 

DRIVING 

DRIVEN 

GEAR 

GEAR 

Number  of  Teeth 

33 

58 

Diametral  Pitch,  1/in. 

4.55 

4.55 

Pressure  Angle,  deg 

21 

21 

Outer  Diameter,  in. 

7.900 

7.900 

Root  Diameter,  in. 

6.594 

6.038 

Circular  Tooth  Thickness 
at  Pitch  Diameter,  in. 

0.369 

0.314 

Tooth  Face  Width,  in. 

0.5 

0.5 

Tooth  Fillet  Radius,  in. 

0.087 

0.083 

Center  Distance,  in. 

10 

10 

Young ' s Modulus , Ib/in. ^ 

3 X lo”^ 

3 X 10 

Shear  Modulus,  Ih/xn. 

1.15  X lo”^ 

1.15  X 

Poisson's  Ratio 

0.3 

0.3 

Driving  Torque^  in. -lb  9831 


TABLE  4.  TOOTH  PROFILE  MODIFICATION 
Driving  Gear 


Zj  (in.) 

-0.00095  -0.00008 

0 

-0.00009 

-0.00075 

Roll  Angle 
(deg) 

34.43  28 

Driven  Gear 

21.99 

18 

9.57 

Z j (in . ) 

-0.00075  -0.0001 

0 

-0.0003 

-0.00055 

Roll  Angle 
(deg) 

29.06  24.56 

21.99 

16.65 

14.91 

0 2 4 6 8 10  12  14  16  13  20  22  24  25 
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Figure  15.  Tooth  Meshing  Error. 
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Figure  17.  Gear  Vibration  Frequency  Spectra. 


The  gears  with  the  tooth  profile  modification  still  have 
three  pairs  of  teeth  in  contact  at  the  beginning  and  end 
of  the  mesh  cycle  and  two  pairs  in  the  middle  portion  of 
the  cycle  as  seen  from  Figure  15  . Ho\*7ever,  the  transition 
when  a tooth  pair  comes  in  and  out  of  engagement  is  smoother 
with  the  profile  modifications.  The  pitch-line  tooth  spac- 
ing errors  decrease  the  total  time  that  a tooth  shares  the 
tangential  load  relative  to  cases  with  perfect  involute  pro- 
files. Tills  is  observed  in  Figure  16  . The  effect  of  the 
spacing  errors  on  peak  tooth  load  is  small,  although  the 
spacing  errors  modify  the  load  sharing  transition  among  en- 
gaging tooth  pairs . 
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The  frequency  spectra  of  the  vibration  induced  by  gear  mesh 
for  all  cases  are  discrete  as  shown  in  Figure  17  , The 
amplitude  is  non-zero  only  at  integer  multiples  of  the  mesh 
frequency.  This  is  because  all  the  teeth  in  each  of  the 
meshing  gears  are  assumed  identical,  and  all  other  gear 
parameters  such  as  center  distance  and  tangential  tooth  load 
are  assumed  constant.  The  only  characteristic  frequency  is 
the  mesh  frequency.  The  spectrum  of  the  vibration  associat- 
ed with  the  gear  mesh  thus  contains  signals  at  only  the  mesh 
frequency  and  its  higher  harmonics.  If  the  gear  parcimeters 
change  or  if  the  teeth  in  a gear  are  not  identical  the  tooth 
meshing  error  pattern  will,  in  general,  vary  between  mesh 
cycles.  The  associated  vibration  will  then  contain  signal 
components  at  the  so-called  sideband  frequencies,  not  being 
the  mesh  frequency  harmonics.  This  fact  has  been  extensive- 
ly discussed  in  Reference  14.  Figure  17  shows  that  the 
vibration  amplitude  in  general  decreases  with  increasing 
frequency.  The  frequency  spectra  of  the  three  cases  shown 
in  Figure  17  have  the  largest  amplitudes  at  the  first 
harmonic.  Ihe  tooth  profile  modification  appears  to  de- 
crease the  vibration  signals  at  all  harmonic  frequencies, 
although  the  mean  tooth  deflection  is  calculated  to  be  larg- 
er with  the  profile  modification.  The  tooth  spacing  error 
is  seen  to  have  the  effect  of  raising  the  signals  at  all 
frequencies.  The  amplitudes  at  some  high  harmonics  are 
even  larger  than  those  of  the  case  with  perfect  tooth  pro- 
files and  no  spacing  error. 


SUMMARY 

A method  has  been  developed  for  predicting  the  level  and 
character  of  gear-mesh- induced  vibrations  in  high-contact- 
ratio  spur  gears,  in  the  computation  of  vibration  amplitude, 
the  load  sharing  among  pairs  of  engaging  gear  teeth  is  cal- 
culated by  considering  all  modes  of  tooth  compliance,  as 
well  as  any  tooth  profile  modification  and  tooth  spacing 
error . 

Mesh  dynamics  calculations  have  been  performed  for  a set  of 
high-contact-ratio  spur  gears.  It  was  found  that  the  freq- 
uency spectrum  of  the  gear-raesh-induced  vibration  depends 
strongly  upon  the  tooth  profile  modification  and  the  spacing 
error.  The  profile  modification  can  effectively  change  the 
contact  ratio  of  the  gears  by  altering  the  maximum  number  of 
tooth  xsairs  in. contact  simultaneously. 

This  analysis  is  useful  for  designing  low-vibration  gears  by 
properly  controlling  relevant  gear  parameters  such  as  tooth 
profile  modifications.  This  approach  may  also  be  used  to 
control  peak  tooth  loads. 
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COMPUTER  PROGRAM  (R-75)  INPUT  FORMAT 


The  mesh  dynamics  analysis  for  high-contact-ratio  spur  gears 
has  been  programmed  in  computer  program  GGEAR/HGR  (R-75) , and 
a listing  is  provided  in  Appendix  B.  The  limitations  and 
assximptions  involved  in  the  analysis  were  stated  previously. 
The  user  specifies  a pair  of  geometrically  compatible  spur 
gears  and  their  operating  conditions;  the  program  computes  the 
load  sharing  among  pairs  of  teeth,  the  stiffness  of  individual 
tooth  pairs,  the  tooth  displacement  devi.ation,  and  the  fre- 
quency spectrum  of  the  associated  vibration. 


Figure  18  shows  a sample .input , and  following  is  a brief  dis- 
cussion of  the  input  variables,  format,  and  important  instruc- 
tions for  setting  up  the  input  data  required  for  program  R-75, 


Input  Variables,  Format,  and  Instructions 
Card  1 Title,  columns  2 through  72. 

Card  2 Control  numbers.  Format  (16l5) . 

a.  NMC  Number  of  mesh  cycles  (last  digit  in  column  5) . 

b.  INT  Specifies  if  this  control  card  represents  the  last 

complete  set  of  input  data  being  submitted. 

If  more  sets  of  input  data  follow  use  0. 

If  this  is  the  last  set  use  1 (column  10). 

c.  MN  Specifies  the  types  of  spur  gears  considered. 

If  both  the  driving  and  driven  gears  are  external 
gears  use  1. 

If  the  driving  gear  is  an  external  gear  and  if  the 
driven  gear  is  an  internal  (ring)  gear  use  0 (The 
program,  will  not  run  properly  if  the  internal  gear 
is  submitted  as  the  driving  gear.)  (column  15) . 

d.  MMM  Number  of  initial  terms  of  the  Fourier  analysis  for 

which  coefficients  will  be  printed,  beyond  the  co- 
efficient for  the  constant  term.  This  number  cannot 
exceed  (FI  x NMC  + NMC/2)  where  FI  is  the  input 
variable  .submitted  on  card  4 (last  digit  in  column 
20)  . 
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Figure  18.  Seunple  R-75  Input  Deck. 
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e.  IPLT 


an  ■%-sn  : 


Specifies  if  the  calculated  tooth  mesh  error  is  to 
be  plotted. 

If  tooth  meshing  error  is  to  be  plotted  use  1. 

If  plotting  is  to  be  bypassed  use  0 (column  25) . 

f.  IFOUR  Specifies  if  a Fourier  analysis  of  the  tooth  mesh 

error  is  to  be  performed. 

If  it  is  to  be  performed  use  1. 

If  it  is  to  be  bypassed  use  0 (column  30). 

g.  ISPECT  Specifies  if  a power  spectral  density  function 

for  the  tooth  mesh  error  is  to  be  calculated. 

If  it  is  to  be  calculated  use  1 and  input  NWS 
and  WS  on  Card  9- 

If  it  is  to  be  bypassed  use  0 (column  30) . 

h.  IHICR  Specifies  if  the  pair  of  gears  is  high-contact- 

ratio. 

If  the  contact  ratio  of  the  gears  is  less  than  2 
use  0« 

If  the  contact  ratio  is  greater  than  2 use  1. 

Note  that  the  contact  ratio  has  to  be  less  than  4 
(column  35) . 

Card  2a  Option  Card.  Format  (1615) 

a.  IRM  Specifies  if  tooth  vaopth  or  root  radius  is  input. 

If  IR!4  = 0 omit  Card  4a  and  root  radius  is  input. 

If  IRM  = 1 submit  Card  4a  and  tooth  depth  is  input 
(column  5) . 
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b.  IPERC 


Specifies  if  circular  tooth  thickness  or  a per- 
centage quantity  which  allocates  to  drive  and 
driven  gears  the  difference  between  the  actual 
circular  pitch  and  the  working  backlash  is  input. 

If  this  is  0 omit  Card  5a  and  input  the  circular 
tooth  thickness . 

If  this  is  1 submit  Card  5a  on  which  the  backlash 
and  percent  split  to  driving  member  are  input 
(column  10) . 

c.  IRF  Specifies  if  the  fillet  radius  is  input. 

If  it  is  0 fillet  radii  RFl  and  RF2  are  input. 

It  it  is  1 RFl  and  RP2  are  calculated  based  on 
a circular  fillet  (column  15). 


d.  I PROP  Specifies  if  the  gear  material  properties  are 
input . 

If  it  is  0 omit  Card  6 and  steel  properties  are 
provided  internally. 

If  it  is  1 submit  Card  6 for  material  properties 
(column  20) . 


e.  ICENT  Specifies  how  center  distance  is  input. 

If  it  is  0 input  center  distance  on  card  7 and 
omit  variable  DEV  on  Card  7 . 

If  it  is  1 omit  variable  CL  on  Card  7 and  input 
DEV  (deviation  from  standard  center  distance) 
on  Card  7. 

If  it  is  2,  standard  center  distance  is  used  and 
omit  variables  CL  and  DEV  on  Card  7 (column  25) , 

f.  NZJ  Specifies  how  the  tooth  profile  deviation  and 

tooth  support  compliance  are  to  be  input,  accord- 
ing to  the  following  table: 
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Submit 


NZJ  U pt-by-pt  On  Cardlz  pt-by-pt  On  Card|4  Zvalues  On  Card 


In  the  Table  U is  the  tooth  support  compliance  ex- 
plained in  the  description  of  Card  8a.  If  U is 
not  input  (NZJ  =1,  2,  or  3)  a value  of  0 is  used 
internally.  Z is  the  deviation  of  points  on  the 
actual  tooth  profile  from  a true  involute,  Z is 
explained  in  the  description  of  Cards  8b  and  8d 
(column  30) . 

g.  IDIAG  Specifies  if  diagnostic  information  is  to  be 
printed. 

If  it  is  0 no  diagnostics  are  printed. 

If  it  is  1 diagnostics  are  printed  out  (column  35) . 


Card  3 Gear  Design  Data  Format  (6E  13.5). 

a.  FNI  Number  of  teeth,  driving  gear. 

Use  columns  1 through  13. 

b.  FN2  Number  of  teeth,  driven  gear. 

Use  columns  14  through  26. 

c.  DPIT  Diametral  pitch,  1/in.  (columns  27  through  39) . 

d.  PANG  Cutting  pressure  angle,  deg  (columns  40  through  52) . 
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e.  R0.1 


' 
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f.  R02 


or 

RI2 


Radius  to  the  outside  diameter  of  the  driving 
gear,  in.  This  should  be  reduced  by  any  radial 
loss  in  working  surface  at  the  tip  of  the  teeth 
from  rounding  or  chamfering 
(columns  53  through  65) 

Radius  to  the  outside  diameter  of  the  driven 
gear,  if  external,  and  to  the  inside  diameter, 
if  internal,  in.  Tliis  should  be  corrected  for 
any  radial  loss  in  working  surface  at  the  tip 
of  the  teeth  from  tip  rounding  or  chamfering. 

In  the  case  of  an  internal  gear,  this  radius 
must  be  equal  to  or  greater  than  the  base  circle 
radius . No  check  for  this  is  provided 
(columns  66  through  78) 


Card  4 Gear  design  data,  continued  Format  (6E  13.5) 


a.  RMl  Radius  to  the  tooth  circle  of  the  driving  gear, 
in.  If  this  radius  is  smaller  that  the  computed 
base  circle  radius  the  input  value  of  root  radius 
is  used  at  some  points  in  the  program  and  this  is 
noted  in  the  output.  If  the  root  radius  is 
smaller  than  the  base  circle  radius  so  that  the 
root  fillet  center  lies  inside  the  base  circle, 
the  tooth  outline  between  the  base  circle  and 
the  fillet  is  assumed  to  be  a radial  line  by 
the  program.  Omit  if  IRM  ^ 0 
(columns  1 through  13) 


b.  rm2  Radius  to  the  root  circle  of  the  driven  gear,  in. 

For  the  case  of  an  external  gear,  the  same 
comments  as  above  apply.  Omit  if  IRM  ^ O 
(columns  14  through  26) 

c.  FI  Number  which  establishes  the  number  of  calcul- 

ation points  (Nj)  where  Nj  = 1 ^ 2 (FI) . The 
calculation  points  may  be  viewed  as  selected 
contact  points  on  the  true  involute  profile,  ex- 
tended where  necessary.  These  contact  points 
with  the  mating  involute  area  are  associated 
with  specific  angular  positions  of  the  gear 
as  it  is  rotated,  where  the  angular  positions 
correspond  to  uniform  subdivisions  of  the  tooth 
spacing  angle.  A greater  number  of  these  points 
will  give  more  closely  spaced  point-by-point  out- 
put data  and  more  accurate  calculations  of  tooth 
deflections  and  Fourier  coefficients.  A value 
of  FI  =12,  giving  25  calculation  points,  has 
been  found  to  be  convenient.  (Maximum  value 
of  FI  = 12.)  (Coliamns  27  through  39) 


67 


d.  Tl  Circular  tooth  thickness  at  the  pitch  circle, 

driving  gear,  in.  Omit  if  IPERC  ^ 0 
(colximns  40  through  52)  . 

Card  4a  Gear  Design  Data,  Continued  Format  (6E  13.5) 

This  card  is  needed  only  if  IRM  ^ 0. 

a.  HTl  Tooth  depth,  driving  gear,  in. 

(columns  1 through  13)  . 

b.  HT2  Tooth  depth,  driven  gear,  in. 

(columns  14  through  26) . 

Card  5 Gear  Design  Data,  Continued  Format  (5E  13.5) 

a.  T2  Circular  tooth  thickness  at  the  pitch  circle, 

driven  gear,  in.  Omit  if  IPERC  0 
(coltimns  1 through  13)  . 

b.  Fl  Effective  tooth  face  width,  driving  gear,  in. 

If  the  face  widths  of  the  mating  gears  are 
similar,  use  the  actual  face  width.  If  one 
tooth  is  much  wider  than  its  mate  use  an  effect- 
ive face  width  which  allows  for  the  limited  add- 
itional support  that  the  greater  width  provides 
(columns  14  through  26) . 

c.  F2  Effective  tooth  face  width,  driven  gear,  in. 

The  comments  for  Fl  also  apply  here 
(columns  27  through  39). 

d.  RFl  Fillet  radius,  driving  gear,  in.  Omit  if  IRF 

7^  0 

(columns  40  through  52). 

e.  RF2  Fillet  radius,  driven  gear,  in.  Omit  if  IRF  i- 

0 (columns  53  through  65). 

Card  5a  Tooth  Thickness  Parameter  Format  (6E  13.5) 

This  card  is  needed  only  if  IPERC  = 1. 

BL  Backlash  (in.)  (columns  1 through  13). 

PTl  Percent  tooth  thickness  split  to  driving 
ineiiiber  ( columns  14  through  26)  . 

Card  6 Gear  Design  Data,  Continued  Format  (6E  13.5) 

This  card  is  needed  only  if  I PROP  = 1. 
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If  IPROP  = 0,  material  is  assumed  to  be  steel. 

a.  YEl  Young's  modulus  (in  bending)  driving  gear, 

Ib/in^  (columns  1 throucrh  13)  . 

b.  YE2  Young’s  modulus  (in  bending)  driven  gear, 

Ib/in^  (columns  14  through  26) . 

c.  GEl  Shear  modulus,  driving  gear,  Ib/in"'^  (columns  27 

through  39) . 

d.  GE2  Shear  modulus,  driven  gear,  Ib/in^  (columns  40 

through  52) . 

e.  P(2(S1  Poisson's  ratio,  driving  gear  (colvunns  53 

through  65) . 

Since  this  ratio  is  used  only  in  the  allowance  for 
the  "wide  beam  effect",  it  should  be  reduced  for 
cases  where  tooth  face  width  is  not  much  greater 
than  tooth  thickness  with  a limiting  value  of  zero 
when  the  tooth  width  is  smaller  than  the  thickness 
(columns  53  through  65) . 

f.  P0S2  Poisson’s  ratio,  driven  gear.  Corriments  for  P0S1 

also  apply  here  (colunuis  66  through  78)  . 

There  are  NMC  sets  of  the  following  Card  7 and  Card  8.  Each 
set  supplies  center  distance,  tooth  spacing  errors,  tooth 
profile  errors,  tooth  support  compliances  and  transmitted 
torque  for  one  mesh  cycle. 

Card  7 Center  distance  and  tooth  spacing  error  data. 

Format  (3E  13.5) 

a.  CL  Center  distance,  in. 

This  is  the  actual  center  distance  including  any 
spreading  under  load.  Omit  if  ICENT  ^ 0 (columns 
1 through  13) . 

b.  VPTl  Tooth  spacing  error,  driving  gear,  in.  This  error 

is  based  on  the  distance  between  the  pitch  points 
of  successive  teeth,  adjusted  to  the  direction  of 
the  line  of  action.  This  adjustment  is  accomplished 
by  multiplying  the  pitch  line  error  by  the  cosine 
of  the  pressure  angle.  The  error  is  positive  if 
the  measured  spacing  is  smaller  than  the  desired 
spacing  (columns  14  through  26)  . 
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c.  VPT2  Tooth  spacing  error,  driven  gear,  in.  The  comments 

under  VPTl  also  apply  here  (colurans  27  through  39)  . 

d.  DEV  Deviation  from  standard  center  distance.  Omit  if 

ICENT  1 (columns  40  through  52)  . 

The  total  number  of  Cards  8a,  8b,  8c  and  8d  depends  on  the 
number  of  calculation  points  (Nj)  (see  Card  4) , The  total 
number  of  points  along  the  tooth  profile  (M)  at  which  the 
tooth  profile  deviation  ZJ  and  the  tooth  support  compliance  UJ 
must  be  specified  is  M = 2Nj.  If  IHICR  = 0 unless  it  is  a 
high  contact  ratio  mesh  (IHICR  = 1)  in  which  case  M = 4Nj. 

When  the  point-by-point  option  is  used  to  input  the  values  of 
ZJ  (Cards  8b-l  and  8b-2)  and  UJ  (Cards  8a-l  and  8a-2) , the 
specification  of  these  values  is  described  below.  A value  of 
ZJ  or  UJ  must  be  introduced  even  if  there  is  no  contact  at 
the  particular  calculation  point  or  if  the  tooth  profile  does 
not  actually  extend  to  the  calculation  point.  A blank  space 
may  be  used  for  these  points. 

For  the  driving  gear,  the  first,  value  is  for  the  calculation 
point  located  (M/2-1)  points  preceding  the  pitch  point  (or 
inside  the  pitch  circle);  the  (M/2)th  value  is  for  the  pitch 
point;  the  last,  or  (M)th,  value  is  for  the  cal'^ulation 
point  located  (M/2)  points  after  the  pitch  point  (or  outside 
the  pitch  circle) . This  last  point  may  also  be  described  as 
the  point  of  contact  on  one  meshing  tooth  when  the  point  of 
contact  on  the  next  meshing  tooth  is  the  pitch  point. 

For  an  external  driven  gear,  the  first  value  is  for  the 
calculation  point  located  (M/2)  points  before  the  pitch  point 
(or  inside  the  pitch  circle);  the  (M/2  + l)th  value  is  for 
the  pitch  point;  the  last,  or  (M)th,  value  is  for  the  calcu- 
lation point  located  (M/2  - 1)  points  after  the  pitch  point 
(or  outside  the  pitch  circle) . The  first  point  may  also  be 
described  as  the  poi.nt  of  contact  on  one  meshing  tooth  when 
the  point  of  contact  on  the  previous  meshing  tooth  is  the 
pitch  point. 

For  an  internal  driven  gear,  the  first  value  is  for  the 
calculation  point  located  (M/2)  points  following  the  pitch 
point  (or  outside  the  pitch  circle);  the  (M/2  + l)th  value 
is  for  the  pitch  point;  the  last,  or  (M)th,  value  is  for  the 
calculation  point  located  (M/2  - 1)  points  before  the  pitch 
point  (or  inside  the  pitch  circle) . The  first  point  may 
also  be  described  as  the  point  of  contact  on  the  meshing  tooth 
when  the  point  of  contact  on  the  next  meshing  tooth  is  the 
pitch  point. 

Card  8a-l  Tooth  support  compliance,  driving  gear.  Format 
(6E  13.5) 
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This  group  of  cards  is  needed  only  if  NZJ  =0,  4 or  5. 

UJl  Tooth  support  compliance  or  any  compliance  supple- 
mentary to  the  tooth  compliance  included  in  the 
analysis  for  the  driving  gear,  in/lb.  This  compli- 
ance is  the  deflection  normal  to  the  profile  under 
unit  load  at  the  calculation  point  on  the  profile. 

A uniform  compliance  for  all  ca.lculation  points, 
such  as  would  result  from  a uniform  gear  shaft 
compliance,  will  not  affect  motion  irregularities 
or  load  transfer.  It  will,  however,  increase  the 
mean  deviation  in  transmitted  motion.  There  are  M 
values  required. 

Card  8a-2  Tooth  support  compliance,  driven  gear.  Format 
(6E  13.5) 

This  group  of  cards  is  needed  only  if  NZJ  =0,  4 or  5. 

UJ2  Tooth  support  compliance  for  the  driven  gear,  in/lb. 
The  comments  under  UJl  also  apply  here. 

Card  8b-l  Tooth  profile  deviation  data,  driving  gear.  Format 
(6E  13.5) 

This  group  of  cards  is  needed  only  if  NZJ  = 0 or  3. 

ZJi  Deviation  froii'i  a true  involute,  measured  normal 
to  the  profile,  of  the  point  on  the  actual  tooth 
profile  of  the  driving  gear,  in.  This  true 
involute  is  positioned  relative  to  the  actual 
profile  so  that  its  deviation  at  the  pitch  point 
is  zero.  Where  the  deviation  represents  material 
added  to  the  true  involute,  it  is  positive;  where 
it  represents  material  subtracted,  it  is  negative. 

If  the  profile  does  not  extend  to  a particular 
calculation  point  or  if  the  mating  gear  will  not 
contact  at  this  point,  the  deviation  may  be  input 
as  zero.  There  are  M values  required. 

Card  8b-2  Tooth  profile  deviation  data,  driven  gear.  Format 
(6E  13.5) 

This  group  of  cards  is  needed  only  if  NZJ  = 0 or  3. 

ZJ2  Deviation  from  a true  involute  of  the  point  on  the 
actual  tooth  profile  of  the  driven  gear,  in.  The 
comments  under  ZJl  also  apply  here. 
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Card  8c- 1 Torque.  Format  (1615) 

NTS  Specifies  if  the  torque  input  on  the  next  group  of 
cards  applies  to  the  driving  or  driven  gears, 

1 = driving  gear,  2 = driven  gear. 


Card  8c-2  Transmitted  torque.  Format  (6E13.5) 


TCfR  Torque  values  of  driving  or  driven  gear,  in/lb - 

A variable  torque  through  one  mesh  cycle  is  allowed. 
There  are  Nj  values  required  for  the  Nj  calculation 
points.  The  first  calculation  point  corresponds 
to  the  first  data  point  outside  the  pitch  circle  of 
the  driving  gear.  In  the  case  of  constant  torque 
Nj  equal  values  should  be  input. 

In  specifying  the  deviation  data,  the  true  involute 
is  positioned  relative  to  the  actual  profile  so  that 
its  deviation  at  the  pitch  point  is  zero.  Where 
the  deviation  represents  material  added  to  the  true 
involute,  it  is  positive;  where  it  represents 
material  subtracted,  it  is  negative.  The  roll 
angles  for  the  high  and  low  points  must  be  specified. 
The  tooth  profile  deviations  at  all  other  calcu- 
lation points  are  obtained  internally  by  linear 
interpo la t ion . 

Card  8d-l  Tooth  profile  deviation,  driving  gear.  Format 
(6E13.5)  . 


This  card  is  needed  only  if  NZJ  = 1 or  4. 

a.  Z{1,1)  Deviation  of  the  outer  diameter  point  on  the 

actual  tooth  profile  from  the  true  involute,  in. 
(columns  1 through  13) . 

b.  Z(5,l)  Deviation  of  the  high  point  (between  outer  diameter 

point  and  pitch  point)  on  the  actual  tooth  profile 
from  the  true  involute,  in,  (columns  40  through  52) . 

c.  Z(4,l)  Deviation  of  the  lev;  point  (between  pitch  point  and 

the  first  contact  point  near  the  tooth  root)  on  the 
actual  tooth  profile  from  the  true,  involute,  in, 
(columns  27  through  39) . 


d.  Z(3,l)  Deviation  of  the  true  involute  point  (the  first 
contact  point)  on  the  actual  tooth  profile  from 
the  true  involute,  in.  {col\amns  40  through  52)  . 


e.  RHIGH(l)  Roll  angle  of  the  high  point,  deg.  (columns  53 
through  65) . 
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f.  RLOW(l)  Roll  angle  of  the  low  point,  deg.  (columns  66 
through  78) . 

Card  8d-2  Tooth  profile  deviation,  driven  gear.  Format 
(6E13.5) . 

This  card  is  needed  only  if  NZJ  = 1 or  4. 

a.  Z(l,2)  Deviation  of  the  outer  diameter  point  for  an 

external  gear.  For  an  internal  gear,  it  is  the 
deviation  of  the  inner  diameter  point,  in,  (columns 
1 through  13) . 

b.  Z(5,2)  Deviation  of  the  high  point  (between  inner  diameter 

and  pitch  point  for  internal  gear) , in.  (columns  14 
through  26) . 

c.  Z(4,2)  Deviation  of  the  low  point,  in.  (columns  27  through 

39)  . 

d.  Z(3,2)  Deviation  of  the  true  involute  point,  in.  (columns 

45  through  52) . 

e.  RHIGH(2)  Roll  angle  of  the  high  point,  deg.  (columns  53 

through  65) . 

f.  RLOW(2)  Roll  angle  of  the  low  point,  deg.  (columns  66 

through  78) . 

card  9 Gear  speed.  Format  (15,  E 13.5) 

a.  NWS  Identifies  if  the  input  speed  is  the  speed  of 

driving  or  driven  gear.  1 = driving  gear, 

2 = driven  gear  (column  5) . 

b.  WS  Driving  or  driven  gear  speed,  rpm  (columns  6 

through  18) . 
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PROGRj^M  OUTPUT  AND  DESCRIPTION 


Figure  19  shows  a sample  output  for  the  case  defined  in  Figure 
18.  Following  is  a brief  discussion  on  the  output  data. 


output  Variables  and  Explanations 

1.  Title 

2.  Control  Number  - NMC,  INT,  MN,  MMM,  IPLT,  IFOUR,  ISPECT, 

IHICR,  IRM,  IPERC,  IRP,  IPROP,  ICENT, 

NZJ,  as  in  input  Cards  2 and  2a, 

3.  Design  Data  - FI(=I),  FNl(=Nl),  DPIT(D1A.  PITCH),  ROl, 

RTl,  RMl,  BLANK,  FN2{=N2),  PANG(CUT.  PRESS 
ANG)  , RD2  or  RI2,  RT2,  RM2,  Tl,  FI,  RFl, 

YEl,  GEl,  P0S1,  T2,  F2,  RF2,  yE2,  GE2,  P0S2, 
as  in  input  Cards  3 through  6. 

Items  4 through  11  are  printed  for  each  of  the  NMC  mesh 
cycles  specified. 

4.  Mesh  Cycle  identification.  Center  Distance  and  Tooth 
Spacing  Errors. 

5.  Input  Listing  of  Transmitted  Torques  at  Nj  Calculation 
Points  cind  Listing  of  Calculated  Tangential  Tooth  Loads 
at  Nj  Calculation  Points. 

6.  input  Listing  of  Profile  Error  and  Supplementary 
Compliance  - ZJl,  ZJ2,  UJl,  UJ2,  as  in  input  Cards  8a, 

8b  and  8d . 

7.  Operating  pressure  Angle,  deg. 

8.  Miscellameous  Data: 

PI>1  pitch  circle  radius,  driving  gear,  in. 

RP2  pitch  circle  radius,  driven  gear,  in. 

RBI  base  circle  radius,  driving  gear,  in. 

RB2  base  circle  radius,  driven  gear,  in. 

BAl  arc  of  approach,  driving  gear,  rad. 

BA2  arc  of  approach,  driven  gear,  rad.  (negative 
on  internal  gear) 

BRl  arc  of  recess,  driving  gear,  rad. 

BR2  arc  of  recess,  driven  gear,  rad.  (negative 
on  internal  gear) 
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ATI 


%: 
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■F 


angle  of  rotation#  driving  gear,  between  the 
position  where  the  line  of  action  intersects 
the  involute  at  the  start  of  the  involute  profile 
to  the  position  where  the  line  of  action  inter- 
sects the  involute  at  the  pitch  point,  rad. 


AT2  angle  of  rotation,  driven  gear,  rad. 


Check  for  message  to  determine  if  part  of  the  profile 
extends  within  the  base  circle.  If  so,  program  will 
continue  and,  where  necessary,  the  root  radius  will  be 
set  equal  to  the  base  circle  radius.  In  the  tooth  profile 
and  the  tooth  deflection  calculations,  the  original  root 
circle  radius  will  be  used  with  the  specified  or  calcu- 
lated fillet  radius.  If  the  root  circle  lies  inside  the 
base  circle  by  more  than  this  fillet  radius,  a radial 
line  is  assumed  to  connect  fillet  and  involute. 


9.  Driving  Gear  Data  - Jl,  CJl,  AJl,  QJlABC,  XJl,  YJl,  ZJl, 

XME1(=X),  ■!iMEl(=Y),  Jl,  QJlA,  QJlB, 
QJIC 

Jl  Number  of  calculation  points  (see  FI  on  Card  4 
of  the  input  data) . Listed  for  values  of 
(-M/2  + 1)  to  (M/2) . (See  description  of  Cards 
8a,  8b,  8c  and  8d.) 


2 


ft 

-S 

jr!r 

--.ri 

'li 


CJl 


AJl 


XJl 

and 

YJl 


ZJl 


condition  of  engagement  if  equal  to  one  and  no  « 

engagement  if  equal  to  zero.  I 

Angle  of  rotation  from  the  position  of  contact  I 

at  the  pitch  point  to  the  position  of  contact  | 

at  the  calculation  point  - negative  for  points  1 

inside  the  pitch  circle,  rad,  1 

Coordinates  of  the  calculation  point  on  the  | 

involute  profile  with  the  origin  at  the  gear  ^ 

center  and  the  X-axis  as  the  centerline  of  the  j 

tooth.  Given  only  for  points  at  which  contact  j 

takes  place  with  the  mating  gear,  in.  I 

i 

i 

Tooth  profile  deviation,  in,  i 


XMEl  Coordinates  of  the  point  on  the  root  circle 
and  midway  between  the  tangent  point  of  the  fillet 
YMEl  radius  and  the  involute  profile  extended  (and 

radial  inside  the  base  circle) , in.  This  point 
is  considered  to  be  the  end  of  the  effective 
base  of  the  tooth  for  deflection  purposes. 
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3 


QJIA  Elastic  complicince  normal  to  the  profile  of 

the  gear  tooth  acting  as  a cantilever  beam  in 
bending  only,  in/lb. 

QJlB  Elastic  compliance  of  the  gear  tooth  as  a 
cantilever  beam  in  shear  only,  in/lb. 

QJlC  Elastic  compliance  of  the  gear  tooth  as  a rigid 
member  rotating  in  its  supporting  structure, 
in/lb. 

QJIABC  Combined  compliance  of  QJlA,  QJlB,  QJlC, 

QJIABC,  in/lb. 

10.  Driven  Gear  Data  - J2,  BLANK,  AJ2,  QJ2ABC,  XJ2,  YJ2, 

ZJ2,  XME2,  YME2,  J2,  QJ2A,  QJ2B,  QJ2C 

J2  Number  of  calculation  points.  For  external 
gears,  J2  is  listed  for  values  of  (-M/2)  to 
(M/2  - 1)  and  contact  takes  place  between  points 
where  Jl  = -J2.  For  internal  gears,  J2  is 
listed  for  values  of  (M/2)  to  (-M/2  + 1)  and 
contact  takes  place  between  points  where 
Jl  = J2. 

All  other  variables  are  similar  to  their  counterparts  for 
the  driving  gears. 

11.  Tooth  meshing  errors,  loads  and  contact  compliance  - 
JCl,  AJCl,  TANG  ERROR,  TANG  LOAD,  WN,  WT,  QJD 

JCl  Number  of  the  calculation  point  on  the  driving 
gear  tooth  of  the  (0)th  pair,  starting  with  the 
first  point  after  the  pitch  point  and  ending 
with  the  point  corresponding  to  the  pitch  point 
of  tlie  next  tooth  ((l)st  pair). 

AJCl  Angle  of  rotation  of  the  driving  gear  from  the 
position  with  contact  at  the  pitch  point  of  the 
first  mesh  cycle  to  the  position  with  contact 
at  the  calculation  point,  rad.  The  last  angle 
in  the  first  mesh  cycle  is  the  tooth  spacing 
angle. 

TANG  ERROR  Tooth  meshing  error  or  deviation  from 
pure  conjugate  action,  as  a pitch-line 
linear  measurement  of  the  motion  of  the 
driven  gear  leading  the  driving  gear,  in. 

A negative  value  indicates  that  the  driven 
gear  is  lagging  the  driving  gear,  as 
might  be  caused  by  deflection  of  the 
teeth. 
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TAKG  LOAD  Load  sharing  among  contacting  tooth  pairs 
is  printed.  The  (+l)th  pair  is  the  pair 
following  the  {0)th  pair,  the  (-i)th  pair 
is  the  pair  in  front  of  the  (0)th  pair  and 
the  (+2}th  pair  follows  the  (-1-1)  th  pair,  lb. 

WN  Total  normal  load  transmitted  by  the  teeth,  lb. 

WT  Total  tangential  tooth  load,  lb. 

QJD  Contact  or  Hertzian  compliance  combined  for 
both  teeth  at  the  contact  point,  in/lb. 

If  IHICR  = 0,  TANG  LOAD  is  replaced  by  WTC  and  WTD  as 
follows: 

WTC  Tangential  load  carried  by  the  (0) th  pair  of 
teeth-,  lb. 

WTD  Tangential  load  carried  by  the  (l)th  pair  of 
teeth,  lb. 

List  of  Tooth  Meshing  Error  over  NMC  Mesh  Cycles  - JCl, 
AJCl,  EJT 

JCl  Number  of  the  calculation  point.  The  last  value 
should  be  equal  to  (NMC  x Nj) . 

AJCl  Same  as  AJCl  above. 

EJT  Same  as  TANG  ERROR  above. 

Plot  of  Tooth  Meshing  Error. 

Appears  only  if  IPLT  = 1 on  input  Card  2, 

Fourier  Coefficients  - I,  A,  B,  C,  KM 

I Order  of  the  harmonic  to  which,  the  coefficients 
apply.  The  zero  order  refers  to  the  constant 
component . 

A The  Fourier  coefficient  of  the  cosine  or  real 
component  for  that  harmonic  of  the  meshing 
error,  in.  The  value  for  I =■  0 is  twice  the 
constant  component  or  mean  value  of  the  meshing 
error. 

B The  Fourier  coefficient  of  the  sine  or  imaginary 
component  for  that  harmonic  of  the  meshing 
error,  in. 


C Square  root  of  (A^  + ) . Appears  only  if 

IFOUR  = 1 on  input  Card  2. 

KM  Ratio  of  frequency  to  tooth  mesh  frequency. 

The  following  output  is  concerned  with  the  power  spectral 
density  function  of  the  tooth  meshing  error.  Appears  only  if 
ISPECT  = 1 on  input  Card  2. 

15.  Mesh  Frequency,  cps. 

16.  Incidental  Data  - FC,  FO,  BE,  H,  TR,  TMAX,  SM 

FC  Cutoff  frequency,  cps. 

FO  Fundamental  frequency,  cps. 

BE  Equivalent  resolution  bandwidth,  cps. 

H Sampling  interval,  cps. 

TR  Total  record  time,  sec. 

TMAX  Maximum  displacement,  sec. 

SM  Maximum  lag  number. 

17.  Power  Spectral  Density  Function  - K,  FR,  GK,  GKK,  KM 

K Harmonic  number,  from  0 to  SM. 

FR  Frequency,  cps. 

2 

GK  "Raw"  power  spectral  density  function,  in  . 

. . . 2 

GKK  "Smooth"  power  spectral  density  function,  in  . 
KM  Ratio  of  frequency  to  tooth  mesh  fr  quency. 
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COMPUTER  PROGRAM  FOR  PREDICTION  OF  GEAR  MESH 
EXCITATION  SPECTRA  - GGEAR  (R-67) 


PROGRAM  DESCRIPTION - 

Computer  program  GGEAR  (R-67)  is  used  for  noise/vibration 
reduction  analysis  in  order  to  calculate  standard  gear  meshing 
errors  and  compliance.  A listing  of  this  progreim  is  provided 
in  Appendix  C.  The  output  from  this  program  is  used  in  the 
finite  element  model  of  the  internal  components;  in  fact,  R-67 
is  similar  to  program  R-75  with  the  exception  of  the  inclusion 
of  high- contact- ratio  capability,  so  the  discussion  of  program 
R-75  is  equally  applicable  here. 

GGEAR  is  an  outgrowth  of  GEARO  (R-33) . GEARO  theory  is 
thoroughly  discussed  in  Reference  2 , and  that  theory  shall 

not  be  repeated  here.  The  differences  between  GEARO  and  GGEAR 
are  outlined  below,  and  GGEAR  is  thoroughly  discussed  in 
Reference  7. 

Characteristics  of  vibration  spectra  induced  by  gear  meshes 
in  both  single  gear  reductions  and  planetary  gear  reductions 
were  first  investigated.  Methods  were  then  developed  to 
analyze  the  planet-pass  induced  vibrations  which  exist  in 
normal  planetary  gear  reduction  systems.  It  was  found  that 
the  planet-pass  vibration  sideband  frequencies  occurred  both 
below  and  above  the  base  signal  at  integer  multiples  of  planet- 
pass  frequency  and  that  the  sideband  amplitudes  could  exceed 
those  of  the  base  signal.  These  sideband  calculations  were 
programmed  into  GEARO, 

The  effect  of  planet  pair  phasing  on  the  vibration  sideband 
spectra  was  analyzed  for  the  CH-47  helicopter  forward  rotor 
drive  transmission  first-stage  planetary  reduction.  GGEAR 
has  been  established  for  predicting  vibration  sidebands 
produced  by  variations  in  centerline  distance,  tooth  transmitted 
force,  and  tooth  support  discontinuities  for  single  gear  mesh 
systems.  The  sidebands  are  normally  found  at  mesh  frequency 
harmonics  plus  and  minus  integer  multiples  of  the  frequency 
of  v?T-iation  of  the  gear  parameters.  The  sideband  amplitudes 
depend  on  the  magnitude  of  variations  of  the  gear  parameters. 

The  vibrations  sideband  spectra  produced  by  spiral  bevel  gear 
shaft  runout,  externally  imposed  tooth  mesh  force  variation, 
and  a decrease  in  support  stiffness  over  a number  of  consec- 
utive ring  gear  teeth  were  obtained  for  gear  meshes  in  the 
CH-47  helicopter  forward  rotor  drive  transmission.  The  GGEAR 
sideband  analysis  is  useful  both  for  designing  low-vibration 
gear  systems  by  properly  controlling  various  gear  parameters, 
and  for  identifying  the  existence  of  several  types  of  gear 
problems  such  as  gear  runout,  high  dynamic  tooth  force,  and 
tooth  cracks. 
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COMPUTER  PROGRAM  R-67  INPUT  FORMAT 


A complete  set  of  input  data  for  R-67  comprises  data  of  nine 
input  cards . The  input  data  instructions  are  given  below  and 
are  for  the  most  part  self-explanatory.  The  cards  are  laid 
out  in  the  format  of  an  80-column  data  card.  A description  of 
the  variables  is  given  and  a sample  case  is  provided  in 
Figure  20. 


Input  Variables.  Format,  and  Instructions 

Card  I Title,  columns  2 through  72. 

Card  2 Control  numbers.  Format  (715) 

a.  NMC  Number  of  mesh  cycles. 

Place  the  last  digit  of  this  number  in  column  5. 

b.  INT  Identification  as  to  whether  this  control  card  rep- 

resents the  last  complete  set  of  input  data  being 
submitted. 

If  more  sets  of  input  data  follow,  use  0. 

If  this  is  the  last  set,  use  1. 

Place  this  digit  in  column  10, 

c.  MN  Classif Ication  of  the  types  of  spur  gears  to  be  con- 

sidered , 

If  both  the  driving  and  the  driven  gears  are  exter- 
nal gears,  use  1. 

If  the  driving  gear  is  an  external  gear  and  if  the 
driven  gear  is  an  internal  (ring)  gear,  use  0. 

(The  program  will  not  run  properly  if  the  internal 
gear  is  submitted  as  the  driving  gear.) 

Place  this  digit  in  column  15. 

d.  MMM  Number  of  initial  terms  of  the  Fourier  analysis  for 

which  coefficients  will  be  printed,  beyond  the  co- 
efficient for  the  constant  term.  This  number  cannot 
exceed  (FI  x NMC  + NMC/2),  where  FI  is  the  input 
variable  submitted  on  card  4. 

Place  the  last  digit  of  this  number  in  column  20. 

e.  IPLT  Instruction  as  to  whether  the  calculated  tooth 

meshing  error  is  to  be  plotted. 

If  tooth  meshing  error  is  to  be  plotted,  use  1. 

If  plotting  is  to  1 bypassed,  use  0. 

Place  this  digit  in  column  25. 


85 


87 


Figure  20-  Continued. 
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f.  IFOUR  Instruction  as  to  whether  Fourier  analysis  of  the 
tooth  meshing  error  is  to  be  performed. 

If  it  is  to  be  performed,  use  1. 

If  it  is  to  he  bypassed,  use  0. 

Place  this  digit  in  column  30. 

g.  ISPECT  Instruction  as  to  whether  power  spectral  density 
function  for  the  tooth  meshing  error  is  to  be 
calculated . 

If  it  is  to  be  calculated,  use  1. 

If  It  is  to  be  bypassed,  use  0. 

Card  3 Gear  design  data.  Format  (6E  13.5) 

a.  FNl  Mumber  of  teeth  in  the  driving  gear. 

Use  columns  I through  13.  (Do  not  omit  decimal 
point .) 

b.  FN2  Mumber  of  teeth  In  the  driven  gear. 

Use  columns  14  through  26.  (Do  not  omit  decimal 
point .) 

c.  RBI  Base  circle  radius  of  driving  gear,  in. 

Use  columns  27  through  39. 

d.  R01  Radius  to  the  outside  diameter  of  the  driving  gear, 

in.  This  should  be  reduced  by  an/  radial  loss  in 
working  surface  at  the  tip  of  the  teeth,  as  from 
tip  rounding  or  chamfering. 

Use  columns  40  through  52, 

e.  R02  Radius  to  the  outside  diameter  of  the  driven  gear, 

or  RI2  if  external,  and  to  the  inside  diameter,  if  inter- 

nal, in.  This  should  be  corrected  for  any  radial 
loss  in  working  surface  at  the  tip  of  the  teeth, 

as  from  tip  rounding  or  chamfering.  In  the  case  of 
an  internal  gear,  this  radius  must  be  e<]ual  to  or 
greater  than  the  base  circle  radius.  No  check  for 
this  is  provided. 

Use  columns  53  through  65. 

Card  4 Gear  design  data,  continued.  Format  (6E  13.5) 
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R-uius  to  the  beginning  (near  the  base  of  the  tooth j 
oi  the  involute  profile  on  the  driving  gear,  in. 

This  is  used  in  the  program  only  in  a design  check 
as  to  whether  adequate  length  of  involute  has  been 
provided  for  contact  on  the  teeth  of  the  mating 
gear  up  to  its  tip.  If  this  radius  is  not  speci- 
fied in  the  gear  design  data,  this  check  may  be  by- 
passed by  substituting  the  root  circle  radius. 

Use  columns  1 through  13. 

Radius  to  the  beginning  (near  the  base  of  the  tooth) 
of  the  involute  profile  on  the  driven  gear,  in. 

See  above  for  substitute  when  not  specified. 

Use  columns  14  through  26. 

Radius  to  the  root  circle  of  the  driving  gear.  In. 

If  the  radius  submitted  is  smaller  than  the  computed 
base  circle  radius,  this  Is  noted  in  the  output,  and 
the  input  value  of  root  radius  is  used  at  some 
points  in  the  program.  If  the  root  radius  is  suf- 
ficiently smaller  than  the  base  circle  radius  so 
that  the  root  fillet  center  lies  inside  the  base 
circle,  the  tooth  outline  between  the  base  circle 
and  the  fillet  is  assumed  to  be  a radial  line  by 
the  program. 

Use  columns  27  through  39. 

Radius  to  the  root  circle  of  the  driven  gear,  in. 

For  the  case  of  an  external  gear,  the  same  com- 
'.-'ints  as  above  apply. 

Use  columns  40  through  52. 

Number  which  indirectly  establishes  the  number  of 
calculation  points.  The  number  of  these  points  will 
equal  one  plus  twice  the  value  of  FI.  The  calcula- 
tion points  may  be  viewed  as  selected  contact  points 
on  the  true  involute  profile,  extended  where  neces- 
sary. These  contact  points  with  the  mating  Involute 
are  associated  with  specific  angul^-r  positions  taken 
by  the  gear  an  it  Is  rotated,  where  the  angular 
positions  correspond  to  uniform  subdivisions  of  the 
tooth  spacing  angle.  A greater  ttumber  of  these 
points  will  give  more  closely  spaced  point-by-point 
output  data.  A greater  number  will  also  give  more 
accurate  calculations  of  tooth  deflections  and 

89 


Fourier  coefficients.  A value  of  FI  equal  to  12 
giving  25  calculation  points  has  been  found  to  be 
convenient . 

Use  columns  52  through  65.  (Do  not  omit  decimal 
point .) 

f.  T1  Circular  tooth  thickness  at  the  pitch  circle  of  the 
driving  gear,  in.  The  radius  of  the  pitch  circle  is 
as  defined  in  card  3.  If  not  specified  in  the  gear 
design  data,  it  may  be  estimated  as  one-half  of  the 
difference  between  the  actual  circular  pitch  and  the 
working  backlash. 

Use  columns  66  through  78. 


Card  5 Gear  design  data,  continued.  Format  (3E  13.5} 

a,  T2  Circular  tooth  thickness  at  the  pitch  circle  of  the 
driven  gear,  in.  The  comments  for  T1  also  apply 
here . 


Use  columns  1 through  13. 

b.  FI  Effective  tooth  face  width  of  the  driving  gear,  in. 

Uhere  the  face  widths  of  the  two  gears  are  similar, 
use  the  actual  face  width  without  any  reduction  for 
normal  end  chamfering  or  rounding.  Where  one  tooth 
is  much  wider,  use  as  its  effective  face  width  an 
amount  suitably  larger  than  the  narrower  width  to 
allow  for  the  limited  additional  support  that  the 
greater  width  provides. 

Use  columns  14  through  26. 

c.  F2  Effective  tooth  face  width  of  the  driven  gear,  in. 

1%e  comments  for  FI  also  apply  here. 

Use  columns  27  through  39. 

d.  RFl  Fillet  radius  on  the  driving  gear,  in. 

Use  columns  40  through  32 . 

e.  RF2  Fillet  radius  on  the  driven  gear,  in. 

Use  columns  53  through  63. 


Card  6 Gear  material  properties.  Format  (6E  13.5) 
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a.  YEI  Young's  modulus  (in  bending)  for  the  material  of 

the  driving  gear,  Ib/in,^ 

Use  columns  1 through  13. 

b.  YE2  Young's  modulus  (in  bending)  for  the  material  of 

the  driven  gear,  Ib/tn.^ 

Use  columns  14  through  26 . 

c.  GEl  Shear  modulus  for  the  material  of  the  driving  gear, 

lb/in.2 

Use  columns  27  through  39. 

d.  GE2  Shear  modulus  for  the  material  of  the  driven  gear, 

Ib/in.^ 

Use  columns  40  through  52. 

e.  P0S1  Poisson's  ratio  for  the  material  of  the  driving 

gear.  Since  this  ratio  is  used  only  in  the  allow- 
ance for  the  "wide  beam  effect,"  it  should  be  re- 
duced for  the  cases  where  tooth  face  width  is  not 
much  greater  than  tooth  thickness,  with  a limiting 
value  of  zero  when  the  teeth  have  a width  smaller 
than  the  thickness. 

Use  columns  53  through  65. 

f.  P0S2  Poisson's  ratio  for  the  material  of  the  driven 

gear.  Comments  for  P0S1  also  apply  here. 

Use  columns  66  through  78. 

There  are  NMC  sets  of  the  following  Card  7 and  Card  8.  Each  set  supplies 
center  dls^ance,  tooth  spacing  errors,  tooth  profile  errors,  tooth  support 
compliances  and  tangential  load  for  one  mesh  cycle. 

Card  7 Center  distance  and  tooth  spacing  error  data.  Format  (3E  13.5) 

a.  CL  Center  distance,  in. 

This  must  be  the  actual  center  distance,  including 
any  substantial  spreading  under  load. 

Use  columns  1 through  13. 

b.  VPTl  Tooth  spacing  error  on  the  driving  gear,  in.  Tliis 

error  is  based  on  the  distance  between  the  pitch 
points  of  successive  teeth,  but  the  error  is  ad- 
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Justed  to  apply  to  the  direction  of  the  line  of 
action.  This  adjustment  is  accomplished  by  multi- 
plying the  pitch  line  error  by  the  cosine  of  the 
pressure  angle.  The  error  is  positive  if  the 
measured  spacing  is  smaller  than  the  desired 
spac ing . 

Use  columns  14  through  26 . 

c,  VPT2  Tooth  spacing  error  on  the  driven  gear,  in.  The 
comments  under  VPTl  also  apply  here. 

Use  columns  27  through  39. 

Cards  8-1  to  8-2N  Point -by-point  data.  Format  (5E  13.5) 

Total  number  of  cards  equal  to  tv;ice  the  number  of 
calculation  points  (Nj)  between  pitch  points  of 
adja :ent  teeth,  or  the  same  as  two  plus  four  times 
the  value  of  FI  (see  card  4).  This  specifies  that 
cards  must  be  introduced  even  if  it  is  known  that 
there  is  no  contact  at  the  particular  calculation 

point  or  even  if  the  tooth  profile  does  not  actual- 
ly extend  to  the  calculation  point.  As  explained 
below,  a blank  card  may  be  used  for  these  points. 

For  the  driving  gear,  the  first  card  is  for  the  cal- 
culation point  located  (Nj-1)  points  preceding 
the  pitch  point  (or  inside  the  pitch  circle); 
the  (Nj)th  card  is  for  the  pitch  point;  the  last  or 
(2Nj)ch  card  is  for  the  calculation  point  located 
(Nj)  points  after  the  pitch  point  (or  outside  the 
pitch  circle).  The  last  point  may  also  be  de- 
scribed as  the  point  of  contact  on  one  meshing 
tooth  when  the  pitch  point  Is  the  point  of  contact 
on  the  next  meshing  tooth. 

For  the  driven  gear  which  is  an  external  gear,  the 
first  card  is  for  the  calculation  point  located  (Nj) 
points  before  the  pitch  point  (or  Inside  the  pitch 
circle);  the  (Wj+l)th  card  is  for  the  pitch  point; 
the  last  or  (2Nj)th  card  is  for  the  calculation 
point  located  (Nj-1)  points  after  the  pitch  point 
(or  outside  the  pitch  circle) . The  point  for  the 
first  card  may  also  be  described  as  the  point  of 
contact  on  one  meshing  tooth  when  the  pitch  point  Is 
the  point  of  contact  on  the  previous  meshing  tooth. 
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For  the  driven  gear  which  is  an  internal  gear,  the 
first  card  ia  for  the  calculation  point  located  (Nj) 
points  following  the  pitch  point  (or  outside  the 
pitch  circle);  the  (Nj+l)th  card  is  for  the  pitch 
point;  the  last  or  (2Nj)th  card  is  for  the  calcula- 
tion poinc  located  (Nj-?)  points  before  the  pitch 
point  (or  inside  the  pitch  circle).  The  point  for 
the  first  card  i^sy  also  be  described  as  the  point 
of  contact  on  the  meshing  tooth  when  the  pitch  point 
is  the  point  of  contact  on  the  next  meshing  tooth. 

a.  ZJl  Deviation  of  the  point  on  the  actual  tooth  profile 

on  the  driving  gear  from  the  true  involute  (ae  de- 
fined by  the  gear  design  data),  in.  This  true  in- 
volute is  positioned  relative  to  the  actual  profile 
so  that  its  deviation  at  the  pitch  point  is  zero. 
Wliere  the  deviation  represents  material  added  to 
the  tri\e  involute,  it  is  positive;  where  it  repre- 
sents material  subtracted,  it  is  negative.  The 
deviation  is  measured  normal  to  the  involute  pro- 
file. If  the  profile  does  not  extend  to  the  partic- 
ular calculation  point  or  if  it  ia  known  that  the 
mating  gear  will  not  contact  at  this  point,  the 
deviation  may  be  noted  as  zero. 

Use  columns  I through  12. 

b.  UJl  Tooth  support  conq>liance,  or  any  compliance  supple- 

mentary to  the  tooth  compliance  included  in  the 
analysis,  on  the  driving  gear,  in. /lb.  This  com- 
pliance is  the  deflection  under  unit  load  at  the 
calculation  point  on  the  profile  in  the  direction 
of  the  load  (or  normal  to  the  profile).  A uniform 
compliance  for  all  calculation  points,  such  as 
would  result  from  a uniform  gear  shaft  compliance, 
would  not  affect  the  final  results  as  far  as  motion 
irregularities  or  load  transfer  is  concerned;  it 
would  only  increase  the  mean  deviation  ir.  tranamL*- 
ted  motion. 

Use  columns  14  through  26. 

c.  ZJ2  Deviation  of  the  point  on  the  actual  tooth  profile 

on  the  driven  gear  from  the  true  involute,  in.  The 
comments  under  ZJl  also  apply  here. 

Use  columns  27  through  39. 

d.  UJ2  Tooth  support  compliance,  etc.,  on  the  driven  gear, 

in, /lb.  The  comments  under  UJl  also  apply  here. 

Use  columns  40  through  52. 
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e.  WT  Tocal  load,  tangent  to  the  pitch  circle,  tranamitted 
by  Che  gear  teeth,  lb. 

In  the  first  N card  8s,  WT  should  be  left  blank. 

WT  in  the  second  N card  8s  represents  the  loads  at 
the  N calculation  points  in  one  gear  mesh. 

Use  columns  53  through  65. 

Card  9 Gear  Speed.  Format  (15, E 13.5) 

a.  MWS  Identification  as  to  whether  the  Input  speed  is  the 

speed  of  driving  or  driven  gear.  , 

If  driving  gear  speed  is  Inputted,  use  1. 

If  driven  gear  speed  is  inputted,  use  2, 

Place  this  digit  in  column  5. 

b.  WS  Driving  or  driven  gear  speed,  rpm. 

Use  columns  6 through  18. 


PROGRAM  OUTPUT 

The  ovitput  generated  from  the  sample  case  defined  in  Figure  20 
is  shown  in  Figure  21.  In  addition  to  the  calculated  output 
data,  the  input  data  is  also  listed,  thus  producing  a complete 
record  of  the  con.puter  tun.  Key  output  variables  from  R-G7 
are  discussed  briefly  below. 

Output  Variables  and  Explanations 

1.  Title 

2.  Control  numbers  ~ MSC,  INT,  NMZ,  MUM,  as  in  input  card  2, 

3.  Design  ~ Fl(-l),  FNK-^Ni),  RBI,  ROi,  TRl,  KMl 

FH2<=-N2),  BLANK,  R02  or  RI2 , RT2,  RM2 
Tl,  FI,  RFl,  TEl,  GEl,  P0S1 
T2,  F2,  RF2,  YT;2 , GE2 , P0S2 
all  as  in  input  cards  3 through  6. 

Items  4-11  are  printed  for  every  mesh  cycle,  totally  NMC  cycles. 

4.  Mesh  cycle  identification  and  center  distance. 

5.  Input  listing  of  profile  error  and  supplementary  compliance  ~ ZJl, 
UJl,  ZJ2,  UJ2  as  in  input  card  8. 

6.  Pressure  angle,  degrees. 
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7,  Incidental  data  - RPl,  RBl,  EAl,  BRl,  ATI 

RP2,  RB2,  BA2,  BR2,  AT2 


where;  RPL 
RP2 
RBi 
RB2 
BAl 
BA2 


pitch  circle  radius  of  driving  gear,  in, 

pitch  circle  radius  of  driven  gear,  in. 

base  circle  radius  of  drivi'.:g  ge?r,  in. 

base  circle  radius  of  driven  gear,  In. 

arc  of  approach  of  driving  gear,  rad, 

arc  of  approaci  f driven  gear,  rad  (negative  on 
Internal  gears). 


BRl  arc  of  recess  of  driven  gear,  rad. 

BR2  arc  of  recess  of  driving  gear,  rad  (negative  on 

internal  gears). 

ATI  angls  of  rotation  of  driving  gear  from  the  position 
at  which  the  line  of  action  intersects  the  involute 
at  the  start  of  the  involute  profile  to  the  position 
at  which  the  line  of  c'tion  intersects  the  involute 
at  the  pitch  point,  rad. 

AT2  similar  angle  of  rotation  of  driven  gear,  rad, 


Check  statement  when  part  of  the  profile  extends  within  the  base 
circle . 


Program  will  continue  in  any  case,  and,  where  necessary,  the  root 
radius  will  be  set  equal  to  the  base  circle  radius.  However,  in 
calculating  the  tooth  profile  and  the  tooth  deflections,  the 
original  root  circle  radius  will  be  used  with  the  specified  fillet 
radius.  If  the  root  circle  lies  inside  the  base  circle  by  more 
than  this  fillet  radius,  a radial  line  Is  assumed  to  connect,  fillet 
and  Involute, 


8.  Driving  gear  dsta  - Jl,  CJl,  AJl,  QJIABC,  XJl,  YJl,  XME1(«X), 
TME1(«Y),  Jl,  qjIA,  QJIB,  QJIC 


I 
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where:  J1 

CJL 

AJl 

XJl 

and 

YJl 

XMEl 

and 

YMEL 

QJLA 

QJIB 

QJIC 


identification  number  for  calculation  points  (see 
under  FI  of  card  4 in  the  input  data)  . Listed  for 
values  of  (-21)  to  (21+1) , 

condition  of  engagement  if  equal  to  one  and  no 
engagement  if  equal  to  zero. 

angle  of  rotation  from  the  position  of  contact  at 
the  pitch  point  to  the  position  of  contact  at  the 
calculation  point  - negative  for  points  inside  the 
pitch  circle,  rad. 

coordinates  of  the  calculation  point  on  the  involute 
profile  with  the  origin  at  the  gear  center  and  with 
the  X-axis  as  the  centerline  of  the  tooth,  given 
only  for  the  points  at  which  contact  will  take  place 
with  the  mating  gear,  in. 

coordinates  of  the  point  on  the  root  circle  midway 
between  the  tangent  point  of  the  fillet  radius  and 
the  involute  profile  extended  (and  radial  inside 
the  base  circle),  in.  This  point  is  considered  to 
be  the  end  of  the  effective  base  of  the  tooth  for 
deflection  purposes. 

elastic  compliance  of  Che  gear  tooth  acting  as  a 
cantilever  beam  in  bending  only,  normal  to  the 
profile  at  the  calculation  point,  in, /lb. 

elastic  compliance  of  the  gear  tooth  as  a canti- 
lever beam  in  shear  only;  otherwise  as  above. 

elastic  compliance  of  the  gear  tooth  as  a rigid 
member  rotating  in  its  supporting  structure; 
otherwise  as  above. 


QJIABC  combined  compliance  of  the  three  above,  in. /lb. 

9.  Driven  gear  data  - J2,  BLANK,  AJ2,  QJ2ABC,  XJ2,  YJ2,  XME2,  TME2 , 
J2,  QJ2A,  QJ2B,  QJ2C 

where:  J2  identification  number  for  the  calculation  points. 

For  external  gears,  J2  is  listed  for  values  of 
(-21-1)  to  (21).  For  this  case,  contact  takas 

place  between  points  of  the  two  gears  for  which 
J1  ■ - J2 . For  internal  gears,  J2  is  listed  for 
values  of  (21+1)  to  (-21).  For  this  case,  contact 
takes  place  between  points  of  the  two  gears  for 
which  J1  « J2, 
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t n 


X. 


All  other  variables  are  similar  to  their  counterparts  for  the 
driving  gear. 


10.  Input  tooth  spacing  error  data  ~ VPTl,  VPT2 

as  in  input  card  7. 


11.  Tooth  meshing  errors,  loads  and  contact  compliance  — JCl,  AJCl, 
EUTT,  WTC,  WTD,  WN,  WT,  QJD 


where:  JCl 


identification  number  for  the  calculation  point  on 
the  first  tooth  of  the  driving  gear,  starting  with 
the  first  point  after  the  pitch  point  and  ending 
with  the  point  corresponding  to  the  pitch  point  of 
the  next  tooth. 


AJCl  angle  of  rotation  of  the  driving  gear  from  the 
position  with  contact  at  the  pitch  point  of  the 
first  mesh  cycle  to  the  position  with  contact  at 
the  calculation  point,  rad.  The  last  angle  in  the 
first  mesh  cycle  is  the  tooth  spacing  angle. 


EJT 


tooth  meshing  error  or  deviation  from  pure  conju- 
gate action,  as  a pitch-line  linear  measurement  of 
the  motion  of  the  driven  gear  leading  the  driving 
gear,  in.  A negative  value  indicates  that  the 
driven  gear  is  lagging  the  driving  gear,  as  might 
be  caused  by  deflection  of  the  teeth. 


WTC 


tangential  load  carried  by  the  first  pair  of  teeth, 
lb. 


WTD 


tangential  load  carried  by  the  second  pair  of 
teeth,  lb. 


WN 

WT 

QJD 


total  normal  load  transmitted  by  the  teeth,  lb, 
input  tangential  tooth  load,  lb. 


contact  or  Hertzian  compllanct’  combined  for  both 
teeth  at  the  contact  point,  in. /lb. 


12,  List  of  tooth  meshing  error  over  NMC  mesh  cycles  — JCl,  AJCl,  EJT 
where:  JCl 


identification  number  for  the  calculation  point. 
The  last  value  should  be  equal  to  (NMCxN) . 


AJCl 

EJT 


same  as  AJCl  In  item  11. 
same  as  EJT  in  item  ll. 


f 
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13.  Plot  of  tooth  meshing  error. 

Appears  only  If  IFLT  In  Input  card  2 Is  set  to  be  1. 

14.  Fourier  coefficients  ~ I,  A,  B,  C,  KM 


where:  1 


A 


B 


C 

KM 


order  of  the  harmonic  to  which  the  coefficients 
apply.  The  zero  order  refers  to  the  constant 
component . 

the  Fourier  coefficient  of  the  conslne  or  real 
component  for  that  harmonic  of  the  meshing  error, 
In.  The  value  for  1 - 0 Is  twice  the  constant 
component  or  mean  value  of  the  meshing  error. 

the  Fourier  coefficient  of  the  sine  or  imaginary 
component  for  that  harmonic  of  the  meshing  error. 
In. 


2 2 

square  root  of  (A  + B ) . Appears  only  if  IFOUR 
in  input  card  2 Is  set  to  be  1. 

ratio  of  frequency  to  tooth  mesh  frequency. 


The  following  output  is  concerned  with  the  power  spectral  density  function 
of  the  tooth  meshing  error.  Appears  only  if  ISPECT  in  input  card  2 is  set 
to  be  1. 


15.  Mesh  frequency,  cps 

16.  Incidental  data  - FC,  FO,  BE,  H,  TR,  TMAX,  SM 

where:  FC  cutoff  frequency,  cps. 

FO  fundamental  frequency,  cps. 

BE  equivalent  resolution  bandwidth,  cps. 
H sampling  interval,  cps. 

TR  total  record  time,  sec. 

TMAX  maximum  displacement,  sec. 

SM  maximum  lag  number . 

17.  Power  spectral  density  function  ■"  K,  FR,  GK,  GKK,  KM 

where;  K hermcr.ic  number,  from  0 to  SM. 
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frequency,  cps- 


2 

"raw"  power  spectral  density  function,  in. 
"smooth"  power  spectral  density  function,  in. 
ratio  of  frequency  to  tooth  mesh  frequency. 
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Figure  21. Continued. 
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CALCULATION  OF  GEAR  MESH  COMPLIANCE 


In  Reference  1,  methodology  is  outlined  in  detail  for  approxi- 
mately calculating  the  gear  mesh  compliance  utilizing  R-67 
(GGEAR)  output. 

In  Table  5,  a worksheet  is  given  for  calctalating  the  modified 
contact  ratio  using  basic  mesh  data. 

This  modified  contact  ratio,  along  with  GGEAR  output  data,  is 
used  to  calculate  the  mesh  ccanpliance  (Reference  1,  page  156)  . 
An  equivalent  cross-sectional  area  must  be  calculated  for 
input  to  the  finite  element  model  of  the  internal  components. 
This  calculation  is  shown  in  Table  6. 
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TABLE  6.  GEAR  TOOTH  COMPLIANCE  CALCULATION 
(gi_2)MiN  = {QJIABC  + QJ2ABC)  MIN  + QJD 
(QJIABC  + QJ2ABC)  MIN  = 0.6248  x lO"^  IN. /LB 
QJD  = 0.459319  x 10""  IN. /LB 

(qi_2)f5IN  = 0.1084  x 10“^  IN. /LB  = 0.1084  y IN. /LB 
h = M-1  = X. 936-1  = 0.936 

q^l  = (qi_2)  min 

COS2  1|;  COS2  <J) 

4,  = 25°  <i>  = 22.5° 

qp!  = s — = 0.1546  y IN. /LB 

^ C0S2  :p  C0S2  4> 

qi_2  = qRi  (1-0. 3h)  = 0.1546(1-0.3(0.936)) 
qi-2  = 0.1112  y IN. /LB 

kl-2  = — — = 8,99  X 10*^  LB/IN. 

qi_2 

AREA  = A = Lkl-2  = 10(8.99  X 10^)  = 2.998  IN . 2 
E 30  X 106  ■ = 
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DYNAMIC  GEAR  TOOTH  FORCE  ANALYSES  - TORRP  (R-32) 


PROGRAM  DESCRIPTION 

This  program,  which  is  based  on  a variation  of  the  Holzer 
analysis,  calculates  the  dynamic  forces  at  a gear  mesh,  it 
can  calculate  system  torsional  resonances  and  dynamic  tooth 
forces  for  a complex  transmission  system  including  planetary 
gears.  The  complete  analysis  is  contained  in  Reference  2. 

The  program  source  listing  (Appendix  D) , input  sheets,  and  a 
sample  case  have  been  included  herein  for  completeness. 

A gear  system  transmitting  power  is  susceptible  to  torsional 
vibration  since  it  possesses  the  necessary  properties  of 
rotational  inertia,  torsional  elasticity,  and  a source  of 
excitation.  The  inertia  may  be  concentrated  as  in  the  body 
of  a gear  or  distributed  as  in  the  shafting.  Similarly,  the 
elasticity  (or  compliance)  may  be  concentrated  as  in  a coupling 
or  in  the  flexing  gear  teeth,  or  it  may  be  distributed  with 
the  inertia  in  the  shaft  sections.  As  in  any  other  torsionally 
vibrating  system,  the  excitation  may  come  from  externally 
applied  pulsating  torques  or  from  a fluctuating  resistance  to 
the  steady  rotation.  However,  in  a geared  system  there  is 
also  an  excitation  due  to  displacement  which  comes  from  the 
imperfect  transfer  of  motion  between  the  meshing  gears.  Due 
to  this  excitation,  the  mating  teeth  at  any  point  of  excitation 
are  subject  to  dynamic  changes  in  relative  motion,  which  can 
be  achieved  only  if  there  is  generated  a dynamic  force  acting 
between  the  teeth  to  impose  the  necessary  accelerations.  This 
dynamic  force,  generated  in  response  to  the  gear  displacement 
excitation,  can  subject  the  gear  teeth  to  greater  loads  than 
required  for  the  steady  transmission  of  power.  In  addition, 
it  can  become  a factor  in  the  generation  of  noise  in  the  trans- 
mission system.  The  excitation,  as  well  as  the  equivalent  gear 
tooth  compliance,  is  calculated  from  program  GGEAR  and  used  as 
input  to  TORRP. 

Several  features  make  the  analysis  sufficiently  versatile  to 
deal  with  a wide  range  of  gear  system  designs.  The  analysis 
provides  for  branches  in  the  vibrating  system.  It  not  only 
treats  multiple  cases  of  the  simple  gear  set  involving  only 
one  gear  driving  a second,  but  it  can  also' treat  multiple  cases 
of  one  type  of  planetary  gear  set  (the  sun  gear  driving,  the 
ring  gear  restrained,  and  the  planet  carrier  transmitting  the 
vibration  to  the.  balance  of  the  system) , Third,  it  includes 
the  effects  of  externally  applied  damping  such  as  might  be 
developed  at  the  bearings.  The  analysis  presents  the  resulting 
dynamic  gear  tooth  forces  in  a form  giving  their  phase  rela- 
tionships as  well  as  their  magnitudes. 
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ORGANIZATION  OF  STATIONS  WITHIN  MAIN  COMPUTER  PROGRAM 


The  following  provides  a brief  description  of  how  to  organize 
the  data  required  to  operate  computer  program  - TORRP  (R-32) . 
Method  of  selecting  and  number  stations  will  be  presented. 

Sele c t ion  of  Stations 


Stations  are  established  where  one  or  more  of  the  following 

descriptions  apply; 

a.  The  free  end  of  any  portion  of  the  system,  including  the 
end  and  beginning  of  the  main  system  and  the  end  of  any 
branch. 

b.  The  point  at  which  a concentrated  inertia  is  acting.  By 
concentrated  inertia  is  meant  an  inertia  which  is  not 
calculated  by  the  prograim  for  given  cylindrical  dimensions. 

c.  The  point  at  which  a concentrated  compliance  is  connected 
to  the  inertia  which  precedes  or  follows  it.  This  inertia 
may  be  either  concentrated  or  of  the  distributed  type 
calculated  by  the  program. 

d.  The  point  at  which  external  constraints  are  applied  to 
the  system  in  the  form  of  an  elastic  restraint  or  in  the 
form  of  damping. 

e.  Each  member  of  a simple  gear  set,  but  without  any  stations 
between  these  two. 

f.  The  start  and  end  of  a planetary  gear  stage. 

g.  Where  inertias  and  compliances  are  to  be  computed  by  the 
program,  at  any  point  where  there  are  changes  in  any  of 
the  diameters  used  to  define  the  cylindrical  portions 

of  the  system.  Any  noncylindrical  portion,  such  as  a 
tapered  portion,  may  be  approximated  by  converting  it 
into  a series  of  stepped  diameters. 

Numbering  of  Stations 

The  stations  are  numbered  in  accordance  with  the  following 

procedure.  Refer  also  to  Figure  22. 

a.  Select  a "main  system"  which  begins  at  a free  end  and 
trace  a path  through  the  system  components  until  it 
reaches  another  free  end.  This  path  has  the  restriction 
that  any  branches  which  remain  may  not  have  further 
branching  on  themselves.  Also,  the  path  must  enter  each 
planetary  stage  through  the  sun  gear.  In  Figure  22, 
which  is  a model  of  the  closed-loop  test  stand  and  the 
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Figure  22.  Schematic  Diagram  of  Torsional  System  Model 

for  CH-47  Forward  Transmission  and  Closed-Loop 
Test  Stand. 


CH-47C  forward  transmission  shown  in  Figure  23,  the  main 
system  selected  consists  of  the  paths  1-5,  8-22,  27,  32, 
35,  40,  43,  48-58,  61,  64-70,  78-85,  89,  and  93-101. 

b.  Start  numbering  the  stations  beginning  with  1 at  the 

starting  free  end,  continuing  in  sequence  until  a common 
station  with  a branch  is  reached.  Do  not  give  the  common 
station  the  next  number.  Instead,  go  to  the  free,  far 
end  of  the  branch,  continuing  the  numbering  sequence  at 
this  far  end  and  numbering  along  the  branch  until  the 
common  is  reached.  The  common  then  receives  the  next 
number,  and  numbering  is  continued  along  the  main  system. 
The  same  procedure  is  followed  whenever  another  branch  is 
encountered.  The  end  of  the  main  system  receives  the 
highest  station  number. 

PROGRAM  (R-32)  INPUT  FORMAT 

A set  of  input  sheets  required  to  program  R-32  is  shown  in 
Figure  24.  A complete  set  of  input  data  comprises  data  of 
nine  distinct  categories.  Within  these  categories,  cards 
which  convey  specific  kinds  of  information  are  referred  to  as 
card  types.  Depending  on  the  complexity  of  the  problem,  the 
input  data  set  may  contain  none,  one  or  several  cards  of  a 
given  type.  The  categories  are  listed  below: 

I Title  Card 

II  Control  Number  Card 

III  Rotor  Material  Properties  Card 

IV  Rotor  Data  Card 

V External  Constraints  Cards 

VI  Simple  Gear  Set  Data  Cards 

VII  Planetary  Gear  Stage  Data  Cards 

VIII  Branch  Data  Cards 

IX  Gear  Excitation  Data  Cards 

A description  of  the  input  variables,  format  and  instructions 
for  each  card  is  given  below. 

Card  1 Title,  Format  (72H) . This  card  precedes  each  set 
of  input  data. 

a.  Printing  instructions,  column  1. 

For  printer  to  skip  a line,  use  0. 

For  printer  to  go  to  next  sheet,  use  1. 

b.  Title,  columns  2 through  72. 
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Schematic  Diagram  of  Closed-Loop  Test  Stand 


First  Item 


R-32 


PAGE 


OF 


TORSIOHAL  RESPONSE  PROGRAM 


TORRP 


INPUT  SHEETS 


ENGINEER  DATE 

PHONE  


ALL  NUMBERS  RIGHT  JUSTIFIED 


TITLE  - PLEASE  PUNCH 


CARD  0 

2 

72 

Col. 

1 

NO.  OF 
STATIONS 

1 5 

NO.  OF 
EXT. 
CONST . 

6 10 

NO.  OF 
BRANCHES 

11  15 

NO.  OF 
EXCITN . 

16  20 

END 

0=MORE 

1=IAST 

21  25 

#SIMPLE 

GEAR 

SETS 

26  30 

#PLANET 

GEAR 

SETS 

31  35 

MDIAG 

36  40 

MODULUS  G 

LB/IN. 2 

6 17 

WEIGHT 
DENSITJf 
LB/IN 3 

18  29 

Figure  24 


TORRP  (R-32)  Input  Sheet 


Third  Item  R“32  PAGE 


Figure  24.  Continued 


Fourth  Item  R-32 


Figure  24.  Continued 


Card  2 Control  numbers.  Format  (7I5) . 


a.  NS 


b.  NB 


G.  NBR 


d.  NMPG 


e.  INP 


f.  KSRG 


Total  number  of  stations.  (NS  < 200) 
Specification  for  selection  of  stations 
given  in  earlier  section.  (Place  last 
digit  in  column  5.) 

Number  of  stations  with  external  con- 
straints, in  the  form  of  elastic 
restraint  or  damping,  both  with  respect 
to  ground.  (NB  < NS)  (Place  last 
digit  in  column  10.) 

Number  of  branches,  without  including 
main  system.  (NBR  < 20)  (Place  last 
digit  in  column  15.) 

Total  number  of  cases  of  gear  excitation. 
A change  in  station  number,  frequency, 
or  magnitude  of  either  component  consti- 
tutes a separate  case.  In  the  planetary 
stations,  one  pair  of  sun  and  ring 
excitations  of  the  same  frequency 
constitutes  one  case.  Individual  solu- 
tions are  found  for  each  case,  except 
in  the  planetary  stages.  When  there 
are  multiple  excitations  of  the  same 
frequency  at  different  points  in  the 
system,  the  solutions  for  the  individual 
excitations  must  be  combined  outside 
the  program.  (Place  last  digit  in 
column  20.) 

Specifies  if  this  is  the  last  complete 
set  of  input  data  (cclumn  25) . 

Tf  more  sets  of  input  data  follow,  use  0, 
If  this  is  the  last  set,  use  1. 

Number  at  simple  gear  sets,  (0  < NSRG 
< 20)  Each  set  consists  of  two  gears. 

If  an  idler  is  used  between  two  gears, 
the  combination  must  be  represented  by 
two  simple  gear  sets  where  the  idler 
is  replaced  by  two  connected  gears  with 
no  compliance  between  them  and  with  a 
total  inertia  equal  to  that  of  the 
idler.  Where  one  gear  drives  two  or 
more  gears,  each  leading  off  to  separate 
branches,  a similar  conversion  must  be 
made.  If  one  gear  drives  through 
multiple  gears  back  into  the  main 
system,  in  a so-called  star  arrangement. 
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the  only  treatment  possible  in  this 
program  is  to  combine  the  multiple 
intermediate  gears  into  one  composite 
gear,  assuming  that  the  excitations,  if 
any,  are  torsionally  synchronous. 

(Place  the  last  digit  in  column  30.) 

g.  NPLG  Ntimber  of  planetary  gear  stages 
(NPLG  < 2)  (column  35)  . 

Card  3 Rotor  material  properties.  Format  (5x,  2E12.4). 

. 2 

a.  GM  Shear  modulus  of  elasticity,  lb-in  . 

May  be  zero  only  if  all  values  of  RIi 
in  the  rotor  data  are  zero  (columns  6 
through  17) . 

3 

b.  DENST  Weight  density,  Ib/in  . May  be  zero 

only  if  all  values  of  RL  in  the  rotor 
data  are  zero  (columns  18  through  29) . 

Card  4-1  to  4-NS  Rotor  data.  Format  (15,  6E12.4), 

a.  NSTA  Station  number  at  or  after  which  the 

rotor  data  apply.  These  must  be  given 
in  numerical  sequence  with  no  omissions. 
(Place  the  last  digit  in  column  5.) 

b.  RIP  Moment  of  inertia  concentrated  at 

station,  Ib-in^.  This  includes  any 
inertia  in  the  system  which  is  not  to 
be  calculated  by  the  program  from 
dimensional  data.  At  the  stations  for 
simple  gear  sets,  list  the  inertias  of 
both  members  in  the  rotor  data.  All 
planetary  inertias  are  included  only 
in  the  separate  planetary  data  cards. 
The  station  which  immediately  follows 
the  planetary  may  have  its  own  inertia 
(columns  6 through  17) . 

c.  RL  Length  of  xmiform  cylindrical  shaft 

section  between  this  station  and  the 
adjoining,  higher-numbered  station,  in. 
At  the  station  for  the  first  member 
of  a simple  gear  set  and  at  the  station 
for  a planetary  gear  stage,  use  0.0. 

At  the  terminating  or  last  station, 
use  0.0  or  i.O  (columns  18  throxigh  29). 
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d.  DST 


e.  ms 


f . DIN 


g . CCOM 


Outer  diameter  for  stiffness  calculation 
of  the  cylindrical  shaft  section,  in. 

This  diameter  measures  the  section 
which  transmits  torque.  If  the  actual 
shaft  section  is  reduced  as  by  a keyway, 
a diameter  which  approximates  the  reduced 
section  should  be  used.  At  the  station 
for  the  first  member  of  a simple  gear 
set  and  at  the  station  for  a planetary 
gear  stage,  use  0.0.  At  the  terminating 
station,  use  0.0  (columns  30  through 
41)  . 

Outer  diameter  for  mass  calculation  of 
the  cylindrical  shaft  section,  in. 

This  diameter  measures  the  section 
which  contributes  inertia.  It  may 
include  any  assembled  sleeves  or  hubs 
which  extend  the  full  distance  and 
which  rotate  with  the  shaft.  Use  0.0 
for  the  special  stations  as  described 
under  DST  (columns  42  through  53) . 

Inner  diameter  for  both  stiffness  and 
mass  calculation  of  the  shaft  section, 
in.  If  the  shaft  section  is  solid, 
use  0.0.  Use  0.0  for  the  special 
stations  as  described  under  DST  (columns 
54  through  65) . 

Concentrated  compliance  acting  between 
this  station  and  the  adjoining,  higher- 
numbered  station,  rad/in-lb.  This 
compliance  is  separate  from  that  cal- 
culated by  the  program  from  the 
dimensional  data,  and  it  can  be  used 
only  when  there  are  no  such  dimensional 
data  between  the  same  two  stations. 

Any  value  listed  as  a concentrated 
compliance  will  enter  into  the  compu- 
tation only  if  RL  = 0 for  the  same 
station.  Use  0,0  for  the  special 
stations  as  described  under  DST. 
Concentrated  compliances  associated 
with  any  of  the  gears  are  included 
only  in  the  special  data  cards  for  the 
particular  type  of  gear  stage  (columns 
66  through  77) . 
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Cards  5-1  to  5-NB  External  constraints.  Format  (15, 

2E  12.4)  (These  cards  are  omitted  in  NB  - 0) 

a.  LB  Station  number  at  which  the  constraints 

are  acting.  These  must  be  given  in 
numerical  sequence.  (Place  last  digit 
in  column  5 . ) 

b.  BK  External,  torsional,  elastic  restraint 

acting  at  the  station,  expressed  as  a 
torsional  stiffness,  in-ib/rad.  Tn  an 
actual  system  which  has  steady  rotation, 
the  stiffness  must  be  0 if  the  restraint 
is  to  ground.  If  in  such  a rotating 
system  the  restraint  is  to  an  "infinite" 
but  rotating  mass,  the  stiffness  may 
have  any  finite  value  (columns  6 through 
17)  . 

c.  BCB  Coefficient  of  the  external  damping 

constraint  acting  at  the  station,  in-lb- 
sec/rad  (columns  18  through  29) . 

d.  IMP  Coefficient  of  interstation  damping,  in- 

lb-sec/rad (columns  30  through  41) . 

Cards  6-1  to  6-NSRG  Simple  gear  set  data.  Format  (I5, 

4E  12.4)  (At  least  one  card  must  be  submitted.) 


a.  LS 


b.  RP 


C.  RG 


d . SG 


Station  number  at  which  the  first,  or 
lower- numbered,  member  of  the  gear  set 
is  located.  (The  second  member  of  the 
gear  set  is  understood  to  be  at  the 
station  LS+1,  unless  it  serves  as  a 
common  station  to  a branch.  In  this 
case,  the  second  member  has  the  number 
which  completes  the  branch.)  The 
simple  gear  set  station  numbers  must 
be  given  in  numerical  sequence. 

(Place  last  digit  in  column  5.) 

Pitch  radius  of  the  first  member  of 
the  gear  set  at  station  LS,  in.  (column 
6 through  17) . Negative. 

Pitch  radius  of  the  second  member  of 
the  gear  set,  in,  (columns  18  through 
29) . Negative. 

Combined  linear  compliance  of  the  two 
gears,  tangential  to  their  pitch 
circles,  in/lb  (columns  30  through  41) . 
(From  GGEAR  Output,  A/2  Wf) 
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Cards  7-1-A,  B,  C to  7-NPLG-A,  B,  C Planetary  gear  stage 
data.  (These  cards  are  omitted  if  NPLG  = 0.  When 
they  are  included,  they  must  appear  in  sets  of  three, 
and  each  set  must  be  arranged  in  the  order  given.) 

First  card  of  set  - A pjanetary  geometry.  Format  (15, 

3E  12.4) 

a.  LEG  Station  number  at  the  start  of  the 

planetary  stage.  This  location  of  the 
station  is  at  the  connecting  point  to 
the  siin  gear,  but  the  station  does  not 
include  the  sun  gear.  .The  sun  gear 
and  other  planetary  components, 
including  the  planet  carrier,  lie 
between  this  station  and  the  one  follow- 
ing it.  (Place  the  last  digit  in 
column  5 . ) 


b.  PN  Number  of  planet  gears  in  the  planetary 

stage  (columns  6 through  17) . Do  not 
omit  decimal  point. 

c.  RS  Pitch  radius  of  the  sun  gear,  in. 

(columns  18  through  29) . 

d.  RW  Pitch  radius  of  the  planet  gear,  in. 

The  pitch  radius  of  the  ring  gear  will 
be  calculated  within  the  program  by 
adding  double  the  planet  i idius  to  the 
sun  radius  (columns  30  through  41) , 

Second  card  of  set  -B  Planetary  inertias.  Format  (15, 

5E  12.4) 


a.  IPL  Station  number  of  the  planetary  stage, 

the  same  as  LEC.  (Place  the  last 
digit  in  column  5.) 

b.  PMS  Weight  on  one  planet  gear,  lb.  This 

includes  all  components  which  rotate 
with  the  planet  - everything  between 
bearing  surface  and  gear  teeth.  One- 
half  the  weight  of  any  rolling  elements 
in  the  bearing  should  be  included 
(columns  6 through  17) . 

c.  PSP  Moment  of  inertia  of  the  sun  gear,  lb- 

in^.  This  includes  all  components 
between  the  point  of  connection  to  the 
outside  system  and  the  gear  teeth 
(columns  18  through  29) . 
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d.  PIP 


Moment  of  inertia  of  each  planet  gear, 
ib-in^.  This  includes  all  components 
used  in  computing  the  weight,  PMS. 
(columns  30  through  41) . 


e.  PRP 


f . PCP 


Moment  of  inertia  of  the  ring  gear, 
Ib-in^.  This  includes  all  components 
between  the  gear  teeth  and  the  point 
of  elastic  connection  to  ground.  If 
the  connection  to  ground  is  rigid, 
with  zero  compliance,  any  finite 
inertia  may  be  used  for  the  ring  gear 
(colvunns  42  through  53)  . 

Moment  of  inertia  of  the  planet  carrier, 
Ib-in^.  This  includes  all  components 
between  the  bearing  surfaces  in  the 
planet  gears  and  the  point  of  connection 
to  the  outside  system  (columns  54 
through  65) . 


Third  card  of  set  -C 
5E  12.4) 


Planetary  compliances.  Format  (15, 


a.  IPL  Station  number  of  the  planetary  stage, 

a repetition  of  the  value  in  the 
previous  card.  (Place  the  last  digit 
in  column  5.) 

b.  SS  Combined  linear  compliance  of  each  sun- 

planet  gear  mesh,  tangential  to  its 
pitch  circle,  in- lb.  If  the  sun  gear 
construction  is  such  that  there  is  a 
significant  compliance  between  the  hub 
and  the  rim,  the  starting  connection 
point  to  the  sun  gear  should  be  defined 
as  located  at  the  rim.  The  hub  would 
then  be  associated  with  the  outside 
system  as  a separate  station,  with  the 
structural  compliance  of  the  sun  gear 
as  a connecting  concentrated  compliance. 
In  this  case,  the  mesh  compliance  still 
appears  under  SS,  but  the  sun  gear 
inertia  under  PSP  would  be  limited  to 
that  of  the  rim  construction  (columns 
6 through  17)  from  GGEAR. 

c.  SR  Combined  linear  compliance  of  each 

planet-ring  gear  mesh,  tangential  to 
its  pitch  circle,  in-lb  (columns  18 
through  29)  from  GGEAR. 
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d.  SW  Linear  compliance  of  the  planet  support 

in  the  planet  carrier,  tangential  to 
the  path  of  planet  centers,  in- lb. 

This  compliance  is  the  combination  of 
the  compliance  of  the  planet  bearing 
and  the  compliance  of  any  portion  of 
the  carrier  which  will  deflect  with 
the  individual  planet.  If  the  carrier 
construction  is  such  that  there  is  a 
compliance  between  a hub  and  a rim-type 
member  which  supports  all  the  planets 
collectively,  this  structural  compliance 
may  be  combined  with  the  others  to  give 
a total  planet  carrier  compliance. 
Alternatively,  the  system  may  be 
changed  so  that  the  end  of  the  planetary 
stage,  that  is,  its  connection  to  the 
external  system,  is  taken  at  the  rim- 
type  member.  In  this  case,  the  hub 
becomes  associated  with  the  outside 
system  as  a separate  station.  The 
compliance  between  hub  and  rim  then 
appears  as  a separate  concentrated 
compliance  between  the  station  at  the 
close  of  the  planetary  stage  and  the 
new  station  for  the  hub.  V7ith  this 
change,  the  compliance  used  under  SW 
is  the  combination  of  only  the  first 
two  compliances  mentioned  above;  namely, 
those  associated  with  the  individual 
planet  (columns  30  through  41). 

e.  Blank  Columns  42  through  53  are  not  read  in 

this  main  computer  program. 

f.  ST  Angular  compliance  of  the  support 

between  the  ring  and  ground,  rad/in- lb. 
If  the  ring  is  rigidly  connected  to 
ground,  set  this  compliance  equal  to 
zero  (col\m>ns  54  through  65)  . 

cards  8-1  to  8-BR  Branch  data.  Format  (215)  These 
cards  are  omitted  if  BR  = 0.) 

a.  LBR  Number  of  the  first  or  free  end 

station  of  the  branch.  (Place  the 
last  digit  in  column  5.) 

b,  LBS  Number  of  the  common  station  of  the 

branch  at  which  it  is  connected  to  the 
main  system.  (Place  the  last  digit 
in  column  10.) 
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Cards  9-1  to  9-NMPG  Gear  excitation  data.  Format  (15, 

6E  12.4)  (These  cards  may  be  submitted  in  any  order.) 


a.  IT  Station  number  vrhich  identifies  the 

gears  at  which  the  excitation  is  intro- 
duced. For  simple  gear  sets,  the 
number  of  the  first  member  is  used,  as 
for  LS  in  card  6.  For  planetary  gear 
stages,  the  station  number  at  the 
start  of  the  planetary  is  used,  as  for 
LEG  in  card  7-A.  (Place  the  last  digit 
in  column  5.) 


b.  FFQ 
(TEl) 


Frequency  of  the  excitation,  cps. 
(TEl  is  used  for  temporary  storage.) 
(columns  6 through  17.) 


c,  AXY 
or 

AXYl 

(TE2) 


The  real  or  cosine  component  of  the 
linear  excitation  in  the  simple  gear 
set  (AXY)  or  in  the  sun-planet  mesh 
of  the  planetary  gear  stage  (AXYl) , 
in.  This  excitation  is  introduced  at 
the  gear  mesh  tangential  to  the  pitch 
circles.  (TE2  is  used  for  temporary 
storage.)  (columns  18  through  29.) 


d.  BXY  The  imaginary  or  sine  component  of  the 
or  linear  excitation  described  above, 

BXY  in.  (columns  30  through  41) . 

(TE3) 


e,  AXY2  The  real  or  cosine  component  of  the 
(TE4)  linear  excitation . in  the  planet-ring 
mesh  of  the  planetary  gear  stage,  in. 
This  excitation  is  introduced  at  the 
gear  mesh  tangential  to  the  pitch 
circles.  On  a card  with  excitation  for 
a simple  gear  set, 'this  field  is  left 
blank.  {TE4  is  used  for  temporary 
storage.)  (columns  42  through  53) 


f. 


BXY2  The  imaginary  or  sine  component  of  the 
(TE5)  linear  excitation  described  just  above, 
in.  (columns  54  through  65). 


125 


PROGR^VM  OUTPUT 


The  output  data  generated  from  program  R-32  is  shown  in  Figure 
25,  along  with  the  input  data  previously  described.  This  pro- 
cedure provides  a complete  record  of  the  computer  run.  Key 
output  variables  from  R-32  are  discussed  briefly  below. 


Tabulation  of  Input  Data 

1.  Title  - as  in  input  card  1- 

2.  Control  numbers  - NS,  NB,  NBR,  NMPG,  INP,  NSRG,  NPLG, 

as  in  input  card  2 . 

3.  Rotor  material  properties  - GM,  DENST,  as  in  input  card  3. 

4.  Rotor  data  - NSTA,  RIP,  RL,  DST,  DMS,  DIN,  CCOM,  as  in 

input  card  4. 

5.  External  constraint  data  - LB,  BK,  BCB,  as  in  input  card  5. 

6.  Simple  gear  set  data  - LS,  RP,  RG,  SG,  as  in  input  card  6. 

7.  Planetary  gear  stage  data  - LEG,  PN,  RS,  RW,  IPL,  PMS, 

PSP,  PID,  PRP,  PCP,  SS,  SR, 

SW,  Blank,  ST,  as  in  input 
card  7 . 

8.  Branch  data  - LBR,  LBS,  as  in  input  card  8. 

9.  Excitation  data  - IT,  FFQ,  AXY  or  AXXl,  BXY  or  BXYl, 

Axy2,  BXy2,  as  in  input  card  9.  Each 
set  of  excitation  data  is  given 
separately  followed  by  its  own  calcu- 
lated response. 

Calculated  Data 


Computed  response  at  each  simple  gear  set  - LS,  TTFR,  TTFE 
where  LS  - Station  number  identifying  the  simple  gear  set. 

TTFR  - Real  or  cosine  component  of  the  dynamic  tan- 
gential tooth  force  developed  at  the  gear 
me  sh , lb . 

TTFE  - Imaginary  or  sine  component  of  the  same  force, 
lb. 
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Computer  response  at  eacli  planetary  gear  stage  - LEG,  Cl,  C2, 
C3,  C4 

where  LEG  - Station  number  identifying  the  planetary  gear 
stage . 


Cl  - Real  component  of  the  dynamic  tangential  tooth 

force  developed  at  the  sun-planet  gear  mesh,  lb. 

C2  - Imaginary  component  of  the  same  force,  lb. 

C3  - Real  components  of  the  dynamic  tangential  tooth 

force  developed  at  the  planet-ring  gear  mesh,  lb. 

C4  - Imaginary  component  of  the  same  force,  lb. 

This  program  R-32  is  written  in  FORTRAN  II  - extended  and  may 
be  compiled  with  FORTRAN  IV.  In  the  source  deck  listing  shown 
in  Appendix  D,  the  READ  and  WRITE  statements  are  written  with 
the  variable  NR  = 5 to  specif^'  the  standard  reading  unit  and 
the  variable  NW  = 6 to  specify  the  standard  writing  unit.  To 
recompile  the  program  for  any  nonstandard  computer,  introduce 
the  required  unit  numbers,  making  the  necessary  changes  on  the 
cards  as  noted  in  the  listing. 


In  addition  to  the  controlling  portion  of  this  torsional 
response  program,  named  TORRP,  there  are  other  subroutines. 

One,  named  PLNST,  treats  the  planetary  stage.  Another,  named 
liATIN,  performs  the  matrix  inversion  that  solves  the  simulta- 
neous equations  of  the  PLNST  subroutine.  Another,  named  BLOOP, 
applies  to  the  branch  treatment.  The  others,  named  CDIV, 

CDIV2,  PANGF,  AMPF,  CAD,  CSUB  and  CMPY,  perform  arithmetic 
operations. 
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COMPLEX  STRUCTURAL  DYNAMIC  ANALYSIS  COMPUTER  PROGRAM 
USING  STIFFNESS  METHODS  (D-82/C--51) 


PROGRAM  DESCRIPTION 

Program  D-82  calculates  the  natural  frequencies  and  mode 
shapes  of  a complex  structure  composed  of  axial  members,  skins 
(membrane  triangular) , and  beams.  The  program  builds  a stiff- 
ness matrix  on  tape  of  maximum  order  3000  utilizing  up  to  5000 
structural  elements  and  999  node  points  and  3 different 
materials.  Using  matrix  arithmetic  and  assuming  lumped  masses, 
the  stiffness  matrix  is  reduced  to  a matrix  of  order  215.  The 
dynamic  matrix  is  formed  using  the  masses,  and  natural  fre- 
quencies and  mode  shapes  are  found.  The  program  is  completely 
general  and  may  be  used  for  most  types  of  elastic  systems. 

Axial,  torsional,  and  bending  motions  may  also  be  coupled  by 
skewing  the  beam  orienting  node. 

The  input  is  composed  of  node  points  and  their  coordinates, 
structural  elements  including  axials  (areas) , skins  (thick- 
nesses) and  beams  (moment  of  inertia,  torsional  moment  of 
inertia  and  shear  area) , and  masses  for  all  degrees  of  freedom. 
The  output  includes  the  printout  of  the  input,  the  initial 
gross  stiffness  matrix,  the  reduced  stiffness  matrix,  the  flex- 
ibility and  dynamic  matrices,  and  the  eigenvalues  and  eigen- 
vectors (natural  frequencies  and  mode  shapes) . The  mode  shapes, 
as  an  option,  may  be  used  to  calculate  the  damped  forced 
response  using  program  C-51.  Vibratory  loads  are  also  calcu- 
lated. 

The  C-51  program  is  a normal  mode  solution  method  v/hich  cal- 
culates vibration  levels  from  external  harmonic  loads.  In  the 
solution,  the  natural  modes  from  the  D-82  analysis  are  used 
as  generalized  coordinates  for  representing  the  dynamic  system. 
By  simulating  structural  deimping,  the  resulting  second  order 
nonhomogenous  differential  equations  are  solved.  From  these 
equations  the  program  computes  the  response  for  each  mode  for 
sine  and  cosine  forcing  functions  and  obtains  the  total 
responses  by  a summation  of  the  modal  contributions.  The 
maximum  number  of  degrees  of  freedom  is  215  and  the  maximum 
number  of  mode  shapes  is  30.  The  input  of  C-51  is  in  a 
standard  loader  format  so  that  various  cases  may  be  run  simul- 
taneously and  consists  of  a D-82  mode  shape  tape,  exciting 
frequency,  the  eigenvectors  desired,  modal  damping,  and  phased 
oscillatory  forces  and  moments.  The  output  of  C-51  consists 
of  a listing  of  the  input  plus  the  exciting  frequency, 
forcing  frequency  ratios,  amplification  factors,  modal  phase 
angles,  modal  amplitudes,  sine/cosine  components,  the 
resultants,  phase  angles  and  the  "G"  loading.  In  addition, 
vibratory  forces  and  moments  are  calculated. 
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PROCEDURE  FOR  PREDICTING  DAMPED  FORCED  RESPONSE 


Helicopter  vibration  traceable  to  rotor  excitation  is  of  pri- 
mary concern  in  the  analysis  of  the  airframe.  Much  effort  has 
been  expended  on  the  development  of  computer  techniques  which 
assist  in  the  design  of  structures  with  acceptable  vibration 
levels.  These  procedures,  initiated  for  the  structure,  are 
also  applicable  to  the  transmission  system.  The  Unified  Struc 
tural  Analysis  (or  Damped  Force  Response)  Computer  Program 
(D-82)  developed  by  J.  Sciarra  for  the  dynamic  analysis  of  a 
helicopter  fuselage  has  been  extended  for  this  purpose  (Ref- 
erences 17  and  18) . 

This  program  is  capable  of  calculating  the  dynamic  characteris 
tics  for  a large  complex  structure.  A typical  helicopter 
transmission  analytical  model  contains  many  structural  ele- 
ments, and  the  important  elements  of  any  analysis  are: 

1.  Generation  of  a finite  element  structural  idealization 
and  discrete  mass  model. 

2.  Formulation  of  the  internal  components  system  stiffness 
matrix. 

3.  Reduction  in  the  stiffness  matrix  of  the  unloaded  nodal 
degrees  of  freedom  to  the  loaded  nodal  degrees  of  freedom 
(mass  points) , 

4.  Dynamic  matrix  generalization  combining  mass  and  stiffness 
properties . 

5.  Determination  of  eigen  solution. 

6.  Calculation  of  dynamic  tooth  loads  from  system  torsional 
response  analysis. 

7.  Formulation  of  dynamic  equations  and  determination  of  a 
nodal  representation  of  the  transmission. 

8.  Solution  for  the  damped  response  to  be  associated  with 
the  vibratory  tooth  loads . 


17.  Sciarra,  J.J.,  A COMPUTER  METHOD  FOR  DYNAMIC  STRUCTURAL 
ANALYSIS  USING  STIFFNESS  MATRIXES,  Journal  of  Aircraft, 
Vol.  6,  No.  1,  January-February  1969. 

18.  Sciarra,  J.J.,  USE  OF  THE  FINITE  ELEMENT  DAMPED  FORCED 
RESPONSE  STRAIN  ENERGY  DISTRIBUTION  FOR  VIBRATION  REDUC- 
TION, Presented  at  the  ARO-D  Military  Theme  Review,  The 
Helicopter  and  V/STOL  Aircraft  Research  Conference, 
Moffett  Field,  California,  September  1972. 
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The  damped  forced  response  of  a multi-degree-of-f reedom  sys- 
tem is  the  normal  mode  solution  to  the  following  matrix 
equation; 


H {*)  * H{’<}  = 

+ 

= mass  matrix 

= damping  matrix 

= stiffness  matrix 

= sine  or  cosine  component  of  the  exciting 
loads  - lb,  in. -lb 

=,  displacement-inches,  rotation-radians 
= exciting  frequency  - rad/sec 
= time  - sec 


inJTit 


cosAt  (63) 


It  is  well  known  that  the  solution  of  the  previous  equation  is 


= {4 


sinAt 


where 


cos  At , 


sine  or  cosine  components  of  the 
displacement  (or  rotation)  of  the 
nodes  of  the  structural  element, 
inches,  radians 


Stiffness  Method 


Consider  a complex  structure,  i.e,,  a transmission  system, 
which  for  analysis  will  be  idealized.  Thus,  junction  or  node 
points  are  selected  where  structural  members  meet,  and  such 
points  will  possess  six  degrees  of  freedom.  Assume  these 
latter  members  to  be  axial  (resisting  tension  or  compression) , 
skin  (resisting  shear) , and  beams  (opposing  bending) , such 
that  each  element  contributes  stiffness  to  the  node  at  which 
it  is  attached.  If  forces  or  moments  are  applied  to  this 
structure,  deflections  or  rotations  will  occur.  The  resulting 
set  of  simultaneous  equations  represent  continuity  and  equi- 
librium of  the  collection  of  junctions  and  may  be  written  as 
n 

Fj_  = K^j  Xj  (i=  l,2,»6B,n) 

3^-  1 

where  n = number  of  degrees  of  freedom, 
or,  in  matrix  form, 
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(64) 


{")  ' Hf) 

Prom  physical  consideration  it  may  be  shown  that 

Kij  = Kji. 

Dynamic  Considerations  • 

From  equation  (63) , we  may  obtain  the  differential  equations 
expressing  the  undamped  free  vibration  of  a system;  thus, 


Assuming  a harmonic  solution,  it  may  be  shown  that  equation 
(65)  may  be  reduced  to  the  form 


where^  = natural  frequency  squared  (eigenvalue) 


Utilization  of  the  M“1k  - matrix  to  ascertain  the  eigenvalues 
is  cumbersome  and  numerically  unpredictable;  hence,  an  artifice 
known  as  reduction  is  employed  to  circumvent  this  difficulty. 
Parti  tioning  equation  (64)  , we  may  v;ritc 


: ^12 


! ^-22 


(66) 


Then  by  lumping  masses  and  moments  of  inertia  at  only  "Pj^" 
degrees  of  freedom,  the  inertia  forces  and  torques  at  the 
"F2"  degrees  of  freedom  are  zero;  equation  (66)  may  be  shown 
to  yield 


^12  ^22 


This  technique,  known  as  the  reduction  process,  still  admits 
deflections  and  rotations  at  the  X2ig,  and  all  stiffness  con- 
tributions of  the  original  K-matrix  are  included  at  the  loaded 
nodes.  However,  the  procedure  yields  a smaller  dynamic 
matrix  from  which  the  system  eigenvalues  and  eigenvectors  are 
obtainable. 


The  collection  of  eigenvectors  arranged  in  columns  is  called 


the  modal  matrix. 


hence,  we  let 
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{x}  = [f){a} 

where  <|) 


modal  matrix  (of  order  j by  i) 
modal  displacements  in  row  "i" 


Then,  by  using  equation  (67)  and  premultiplying  equation  (65) 
by  the  transpose  of  the  modal  matrix,  we  have 


Assuming  a harmonic  solution,  we  find  the  matrix  form  of 
Rayleigh's  quotient. 


Now,  if  the  eigenvalues  are  distinct,  it  may  be  shown  that 
(j)*^  M ^ is  a diagonal  matrix.  This  diagonal  matrix  is  called 
the  effective  mass  matrix  and  by  definition, 

^eff  ~ W *(>  ( n diagonal  matrix  ) (59) 

Substituting  equation  (69)  into  equation  (68)  , we  have 

f 4 

where  = effective-stiffness  matrix  (a 

diagonal  matrix) 

Damped  Forced  Response  due  to  Phased  Excitation 

Equation  (63)  represents  the  matrix  equation  for  a complex 
structure.  Premultiplying  this  equation  by  (|)'^  and  introducing 
equation  (67)  , we  obtain 


M |vj  + |a| 

sin  Fc}  cos  JLt 

Assuming  modal  damping,  we  may  write 

ji’'  = [2  X.^/^ 


where  J i 
^ef  f i 


critical  modal  damping  coerficient 

effective-damping  matrix  (a 
diagonal  matrix) 


J « 


(73) 


Further,  let  us  define 

{’.«.}  • {*’4 

Substituting  equations  (69)  , (70) , (72)  , and  (73)  into  equation 

(71) , we  have 


If  it  is  assumed  that  the  undamped  natural  frequency  equals  the 
damped  natural  frequency,  because  of  small  structural  damping, 
and  since  equations  (67)  , (70) , and  (72)  are  diagonal,  then 
equation  (74)  represents  a set  of  uncoupled,  second  order, 
differential  equations. 


It  may  be  shown  that  f . solutions  of  equation  (74)  are  given 
by 


where 


sinAt  - cosTLt 

{^i}  = 't>i  + Rci  <>i} 

|»i}  “ si”  h - ^ci  •t’i} 


(75) 


^si  ■“  ^ i r'si  / ^effi 
®oi  i ''ci  / ■'effi 

♦i  = TAN  [2  i / (1./3 .2 

J4i  - 1/  +(2^1/31)^’/= 

i - / V 


Therefore,  by  equations  (67)  and  (75)  the  rotations  and  dis- 
placements are  expressible  as 


sin,n.  t- 


where  p. 


cosJV  t 


6 


(76) 


equation  (76)  may  be 


Employing  trigonometric  relations, 
written  in  the  form, 

{^i}  = )| 

where  ^ . = TAn"^  (S  / P ) 

* 3 j j 

TO  complete  the  analysis  of  the  internal  components,  the  total 
displacements  of  the  structure  are  found  corresponding  to  the 
dynamic  tooth  forces.  These  loads  are  determined  by  the  tor- 
sional response  computer  program  TORRP  (R'32),  in  which  the 
exciting  frequencies  are  taken  to  be  multiples  of  the  mesh 
frequencies . 

COMPUTER  MODELING  OF  DYNAMIC  COMPONENTS 


Modeling  of  the  dynamic  components  of  the  system  is  an  in- 
volved, lengthy  pro.'^'dure.  It  is  important  to  remember  that 
growth  and  improveu.-,.  » should  be  provided  for  in  the  develop- 
ment of  the  model.  Ti.a  procedure  for  modeling  shafts  in  the 
Unified  Structure  Analysis  Program  (D-82) , which  is  a finite 
element  analysis,  is  outlined  below: 

1.  Shafts  are  divided  into  small  cylindrical  sections,  and 
the  lengths  of  these  sections  are  determined  by  the  varia- 
tion of  the  shaft  diameter.  Conical  sections  are  also 
divided  into  small  cylinders  which  vary  in  a discontinuous 
manner. 

2.  Physical  properties  (mass,  inertia,  cross-sectional  area, 
etc.)  are  calculated  for  each  individual  cylinder. 

3.  Masses  and  polar  moments  of  inertia  are  averaged  between 
adjacent  stations,  if  computer  capacity  allows;  otherwise, 
an  equivalent  mass  and  inertia  are  fixed  to  selected  po- 
sitions along  the  shaft  length. 

4.  Gear  meshes  are  represented  by  four  masses  located  at  the 
appropriate  pitch  diameter.  It  is  important,  however,  that 
the  mass  concentrated  at  the  gear  nodes  be  representative 
of  the  actual  mass  distribution.  These  masses  are  con- 
nected to  the  main  shaft  by  beams  exhibiting  elastic 
properties  similar  to  the  actual  gears.  Additional  beams 
are  provided  to  insure  that  the  four  masses  remain  at  equal 
distance  from  one  another. 

5.  Radial  stiffness  of  bearings  is  included  in  the  analysis 
by  pairs  of  linear  and  torsional  springs.  To  allow  for 
nonuniform  stiffness  characteristics,  two  mutually  per- 
pendicular springs  of  different  stiffness  are  required  at 
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each  bearing  location.  Thrust  stiffness  is  represented 
by  a linear  spring  acting  in  the  axial  direction.  These 
stiffnesses  are  a function  of  torque  and  vere  calculated 
on  the  basis  of  a scheme  developed  by  A.  B.  Jones  (Refer- 
ence 19)  . 

6.  Contacting  gears  are  represented  by  a spring  exhibiting 

an  elastic  behavior  similar  to  the  tooth  stiffness  as  cal- 
culated by  Computer  Program  GGEAR  (R-67) . 

7.  A synchronizing  shaft  is  modeled  as  a torsional  spring  de- 
termined by  the  geometry  of  the  device. 

8.  Existence  of  planetary  stages  is  represented  by  a torsional 
spring  whose  stiffness  is  extracted  from  the  Computer 
Program  TORRP  (R-32) . 

9.  The  four  planets  of  the  lower  stage  planetary  system  are 
depicted  by  four  equally  spaced  linear  springs.  Stiffness 
of  these  springs  was  determined  to  be  approximately  one- 
half  of  the  calculated  carrier  post  stiffness. 

This  model,  developed  for  the  CH-47  forward  transmission,  is 
illustrated  in  Figure  26.  The  necessity  of  coupling  the  shafts 
was  dictated  by  comparative  analysis  of  the  experimental  and 
initial  analytical  results. 


19  . 


Jones,  A.B.,  A GENERAL  THEORY  FOR  ELASTICALLY  CONSTRAINED 
BALL  AND  RADIAL  ROLLER  BEARINGS  UNDER  ARBITRARY  LOAD  AND 
SPEED  CONDITIONS,  ASME  Paper  59-LUB-lO. 
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PROGR/Jd  USAGE  - INPUT  PREPARATION 


There  are  four  basic  dynamic  analysis  input  sheets: 

• Control  Numbers  - Figure  27 

• Coordinates  and  Nodal  Boundary 
Conditions  (Action  Table)  - Figure  28 

• Structural  Elements  (Sat  Table)  - Figure  29 

• Masses  and  Mass  Moments  of  Inertia  - Figure  30 

Figures  31  and  32  are  used  for  the  damped  forced  response. 
Assuming  that  the  idealization  of  the  structure  is  complete, 
fill  in  the  control  cards  (Figure  33)  as  follows: 

• Input  the  title  in  the  header  block. 

• Count  the  number  of  nodes  and  enter  with  decimal  in 
the  block  "it  nodes".  The  maximum  number  of  nodes  and 
the  maximum  number  allowable  for  a node  number  is  999. 
This  count  must  be  correct. 

• Count  the  number  of  different  structural  elements 
and  enter  with  decimal  in  the  block  "()  SATS".  The 
maximum  number  of  structural  elements  is  5000.  This 
count  must  be  correct. 

• Count  the  number  of  retained  degrees  of  freedom  for 
the  node  points.  This  corresponds  to  the  number  of 
"2's"  in  the  action  table  input  sheets.  The  maximum 
number  of  retained  degrees  of  freedom  is  215.  This 
count  must  be  right.  Each  retained  degree  of  freedom 
must  have  a mass  or  mass  moment  of  inertia  associated 
with  it. 

• Count  the  number  of  reduced  degrees  of  freedom  and 
enter  in  "()  REDUCED"  box.  This  corresponds  to  the 
number  of  "I's"  in  the  action  table  input  sheets. 

The  sum  of  the  reduced  and  retained  degrees  of  free- 
dom must  be  less  than  3000.  If  a nodal  degree  of 
freedom  is  reduced,  the  node  will  be  allowed  motion, 
but  there  will  be  no  mass  or  moment  of  inertia  for  that 
particular  degree  of  freedom.  The  count  of  the  number 
of  reduced  degrees  of  freedom  must  be  correct  or  the 
program  will  fail. 
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D-82 


Engineer 


INPUT  SHEET 


CONTROL  NUMBERS 


SCIARRA/WOLFINGER  USA  METHOD 


TITLE  CARD  PLEASE  PUNCH 


# NODES  (MAX.  - 999.) 

» SATS  (MAX.  ° 3000.) 

» BETAIN  D.O.r.'s  (MAX.  - 215.) 

♦ REDUCED  D.O.F. 

» MATERIAL  COOES  <MAX.°3.) 

MAX.  NODE  « (MAX.  - 999.) 

YOUNG'S  MODULUS  1ST  MATERIAL 
YOUNG *S  MODULUS  2ND  MATERIAL 
YOUNG’S  MODULUS  3RD  MATERIAL 
POISSON'S  RATIO  1ST  MATERIAL 


POISSON’S  RATIO  3RD  MATERIAL 

t VARIATIONS  (MASS) 

» EIGENVECTORS 

» MASS  GROUPS 

SCALE  FACTOR 

SAVE  TAPE  (l.=YES  0.°NO) 
■pRINT  STRAIN  ENERGY  <1.=YES) 
•j?5PE7!IAL"ELEMteNTS 
l.°-D0N'T  PRINT  INPUT 
] --don’t  PRINT  FULL  K 
1. -DON ^T  PRINT  REDUCED  K 


CALCULATE  EIGENVECTORS  > THIS. 


1.  - FLEXIBILITY 


NOTE;  MAKES  2 TAPES 


Figure  27.  Input  Sheet  - Control  Numbers. 


AT  TABLE  (COORDINATEi  AND  BOUNDARY  CONDITSONS)  (SECOND  ITEM) 


PUT  A "9"  PUNCH  IN  COL  72  OF  THE  LAST  CARD  OF  THE  "ATS". 
Figure  28.  Coordinates  and  Nodal  Boundary  Conditions 


(STRUCTURAL  CONNECTORS) 
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D-82 


Engineer 


INPUT  SHEET 


Date 


CONTROL  NUMBERS 


Page 


SCIARRA/WOLFINGER  USA  METHOD 


TITLE  CARD  PLEASE  PUNCH 


7 5CIARRA  TE.ST  CA^E. 


72 


0001 

» NODES  (MAX.  = 999,) 

18. 

» SATS  (MAX.  = 3000.) 

3‘a. 

# RETAIN  D.O.F.'s  (MAX.  - 215.) 

30. 

♦ REDUCED  D.O.F. 

2Z). 

I MATERIAL  CODES  (MAX.  =3.) 

1. 

0006 

MAX.  NODE  * (MAX.  = 999.) 

(hOO. 

YOUNG'S  MODULUS  1ST  MATERIAL 

30.  EG 

YOUNG'S  MODULUS  2ND  MATERIAL 

0. 

YOUNG'S  MODULUS  3RD  MATERIAL 

0. 

POISSON'S  RATIO  1ST  MATERIAL 

.33 

0011 

POISSON'S  RATIO  2ND  MATERIAL. 

0. 

POISSON'S  RATIO  3RD  MATERIAL 

0. 

« VARIATIONS  (MASS) 

1. 

* EIGENVECTORS 

5. 

* MASS  GROUPS 

10. 

0016 

SCALE  FACTOR 

1. 

SAVE  TAPE  (l.=YES  0.=NO) 

1. 

0018 

PRINT  STRAIN  ENERGY  (l.=YES) 

0. 

//SPECIAL  ELEMENTS 

0. 

l.=D0N’T  PRINT  INPUT 

0, 

0021 

l,=DON'T  PRINT  FULL  K 

0. 

l.=D0N'T  PRINT  REDUCED  K 

0. 

CALCULATE  EIGENI'ECTORS  > THIS. 

0. 

0026 

1.  - FLEXIBILITY  MATRIX  - 

d. 

f)=nfl2-  .=CS1  Onlv  . ... 



0031 

=032,  ..=n^2  01 

■ .Xa. 

ROW  NORMALIZED  TO  UNITY 

©50. 

MAKES  2 TAPES 


Figure  33.  Input  Sheet  - Control  Numbers. 
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In  locations  5 and  6,  numbers  indicated  on  the  input  sheet 
are  used.  In  location  7,  enter  Young's  modulus.  "E"  notation 
may  be  used.  In  location  10,  enter  Poisson's  ratio.  In  loca- 
tion 14,  enter  the  number  of  eigenvectors  desired  (maximum  of 
30).  In  location  15,  enter  the  number  of  mass  points.  Loca- 
tion 25  is  the  lower  bound  for  the  eigenvalues  for  which 
eigenvectors  are  desired.  Location  26  is  the  indicator  for 
forming  the  inverse  of  the  stiffness  matrix.  Locations  13, 

16,  17,  18,  and  31  are  to  be  input  as  indicated  on  the  input 
sheet.  All  other  input  quantities  are  ignored  for  the  present. 

The  second  input  sheet  (Figure  34)  is  the  "AT"  or  action  table. 
In  columns  1 to  3 enter  the  node  number  (maximum  number  is  999) . 
If  the  node  number  is  "5",  enter  as  005.  In  columns  4 to  33, 
enter  the  x,  y,  and  z coordinates  of  the  node  point.  Use  a 
decimal  point.  In  columns  34  to  39,  enter  the  boundary  condi- 
tipns  for  the  node  point  as  follows; 

• "0"  means  delete  the  degree  of  freedom.  This  means 
no  motion  is  allowed  for  that  particular  degree  of 
freedom.  It  also  means  no  rotation  in  the  case  of  a 
node  point  connecting  only  by  axial  or  skin  members. 

It  is  also  used  for  degrees  of  freedom  associated  with 
beams  oriented  in  some  specialized  direction.  It  is 
also  input  for  nodes  used  only  for  orienting  beams, 

but  with  no  structural  duty. 

• "1"  means  reduce  the  degree  of  freedom.  This  means 
that  mass  or  moment  of  inertia  is  to  be  associated 
with  that  particular  degree  of  freedom.  However, 
motion  will  be  allowed  and  the  element  stiffness  will 
be  merged  into  the  final  retained  matrix. 

• "2"  means  retain  the  degree  of  freedom.  This  implies 
that  a mass  or  mass  moment  of  inertia  will  be  associated 
with  that  particular  degree  of  freedom. 

The  order  that  these  boundary  conditions  are  input  is  x,  y,  z, 

Q , G , and  0 . The  last  three  represent  rotations  about  the 
X y y ^ 

respective  axes. 

The  third  table  (Figure  35)  is  the  "SAT"  (Structural  Asssnblage 
Table)  and  is  filled  out  as  follows; 

• In  Column  3,  put  "2"  if  the  element  is  an  axial  member, 
"3"  if  a skin  (triangular^  element,  and  "4"  if  a beam 
element . 

• In  columns  4 to  12,  insert  the  node  numbers  associated 
with  the  member.  If  it  is  an  axial  (stringer)  element, 
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IT  TABLE  (COORDINATES  AND  BOUNDARY  CONDITIONS)  (SECOND  ITEM) 


PUT  A "9”  PUNCH  IN  COL  72  OF  THE  LAST  CARD  OF  THE  "ATS". 
Vigure  34.  Coordinates  and  Nodal  Boundary  Conditions 


TA9LE  (STSUCTURAL  CONKIECTORS] 


these  would  be  the  two  end  nodes  only.  Leave  the  last 
node  box  empty.  If  the  member  is  a triangular  (shear 
panel)  element,  input  the  three  node  points.  If  the 
member  is  a beam,  input  the  end  node  points  of  the 
beam.  In  the  third  box  for  the  beam  enter  an  orienting 
node.  The  two  end  node  points  define  the  x - axis 
(neutral  axis)  of  the  beam.  The  orienting  node  point 
defines  the  i - axis  of  the  beam.  The  y - axis  would 
be  perpendicular  to  the  x - z plane. 

• For  an  axial  member,  insert  the  cross-sectional  area 
in  columns  14  to  23.  Leave  columns  24  to  43  empty. 

For  th^  skin  member,  input  the  thickness  resisting  in- 
plane shear  tg,  the  thickness  in  the  x-directipn  (from 
node  1 to  node  2)  tjj,  and  the  thickness  in  the  y direc- 
tion (perpendicular ‘to  the  x direction)  t-.  For  a beam, 
input  the  moment  of  inertia  about  the  y -^axis,  I-, 
the  torsional  moment  of  inertia  about  the  x - axis, 

J-,  and  the  cross-sectional  area  effective  in  resisting 
shear,  A^. 

The  fourth  input  sheet  (Figure  36)  is  for  the  masses  or  mass 
moments  of  inertia  that  are  associated  with  a retained  degree 
of  freedom.  In  columns  1 to  4 , input  the  node  number.  For 
excunple  input  0125,  0001.  Note  that  4 digits  are  used.  Col- 
umn 5 is  skipped.  Columns  6 to  65  have  room  for  6 numbers  or 
6 degrees  of  freedom  for  any  node.  Use  decimals.  If  less  than 
6 degrees  of  freedom  are  associated  with  a node  point,  only 
input  masses  or  moments  of  inertia  for  the  exact  number  of  de- 
grees of  freedom.  Move  all  numbers  to  the  left.  For  example; 
0023  1.  10.  might  be  a mass  in  the  x - direction  and 

a moment  of  inertia  about  the  z - axis  for  node  23.  The  num- 
bers 1.  and  10.  would  appear  in  blocks  1 and  2, 

In  order  to  calculate  the  damped  forced  response,  sheets  5 
(Figure  37)  and  6 (Figure  38)  are  used. 

On  Figure  37,  location  0001  inputs  the  exciting  fre- 
quency. Repeat  this  number  in  location  0003.  In  locations  5 
to  34,  enter  the  number  of  the  eigenvector  desired  (e.g.,  1., 
2.,  3.,  4.  for  the  first  to  fourth  modes).  In  locations  35  to 
64,  input  the  assumed  modal  damping  for  each  mode  (e.g.,  0.03). 


On  Figure  38,  input  the  external  sine  and  cosine 
loads.  In  the- first  column,  input  the  row  number  of  the  degree 
of  freedom  being  excited  (e.g. , row  0017  for  exciting  node  10 
in  the  x -■  direction)  . This  corresponds  to  the  location  in  the 
stiffness  matrix  of  the  degree  of  freedom  involved. 
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PROGRAM  OUTPUT 


The  output  data  generated  for  the  test  problem  from  program 
D-82/C-51  is  shown  in  Figure  39,  along  with  the  input  data 
previously  described.  In  addition  to  the  above  data,  program 
D-82/G-51  will  produce  a tape  of  mode  shapes  containing  modal 
information  for  the  transmission  internal  components  which  is 
used  as  input  into  program  S68.  A listing  of  the  actual  in- 
ternal components  shafting  model  is  shown  in  Figure  40. 
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NASA  STRUCTURAL  ANALYSIS  PROGRAM  - NASTRAN  (S-70) 


PROGRAM  DESCRIPTION 


NASTRAN  employs  a lumped  element  approach,  wherein  the  distri- 
buted physical  properties  of  a structure  are  represented  by  a 
model  composed  of  a finite  nunO^er  of  idealized  elements  that 
are  interconnected  at  a finite  number  of  grid  points.  Loads 
are  applied  at  these  grid  points,  and  all  input  and  output 
data  pertain  to  the  idealized  structural  model.  The  steps  in 
the  definition  and  loading  of  a structural  model  are  srunmarized 
in  Figure  41. 

The  grid  point  definition  forms  the  basic  framework  for  the 
structural  model.  All  other  parts  of  the  structural  model 
are  referenced  either  directly  or  indirectly  to  the  grid 
points.  A geometric  grid  point  is  a point  in  three-dimensional 
space  at  which  three  components  of  translation  and  three 
components  of  rotation  are  defined.  The  coordinates  of  each 
grid  point  are  specified  by  the  user. 

Various  kinds  of  constraints  can  be  applied  to  the  grid 
points.  Constraints  are  used  to  specify  boundary  conditions, 
including  enforced  displacements  of  grid  points,  or  to  specify 
a linear  relationship  among  selected  degrees  of  freedom. 

Omitted  points  are  used  as  a tool  in  matrix  partitioning  and 
for  reducing  the  nxmiber  of  degrees  of  freedom  used  in  dynamic 
analysis. 


The  elemental  structural  element  is  a convenient  means  for 
specifying  many  of  the  properties  of  the  structure,  including 
material  properties,  mass  distribution,  and  some  types  of 
applied  loads.  Structural  elements  are  defined  on  connection 
cards  by  referencing  grid  points.  Generally,  connection  cards 
refer  to  property  cards  on  which  the  cross-sectional  properties 
of  the  element  are  specified.  The  property  cards  in  turn  refer 
to  material  cards  which  define  the  material  properties. 

The  extv2nsive  computer-generated  plotting  capability  available 
in  NASTJIAN  has  been  used  to  plot  the  undeforraed  structural 
model  and  has  provided  for  visual  inspection  of  the  model  to 
check-out  and  debug  the  input  data.  Plots  of  the  deformed 
structure  have  also  been  obtained  to  provide  mode  shape 
definition. 
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PROGRAM  UTILIZATION 
TEST  DATA 


CHECKOUT  AND  CORRELATION  WITH  SIREN 


A cylinder  has  been  modeled  by  Boeing  Vertol  using  NASTRAN 
with  the  intent  of  determining  the  feasibility  of  using  NASTRAN 
to  dynamically  analyze  cylindrical  shells.  Since  a survey  of 
the  literature  indicated  the  lack  oi  any  other  analytical  model 
to  correlate  with  the  NASTRAN  results,  siren  tests  were  con- 
ducted on  an  actual  cylinder.  Correlation  was  obtained  after 
study  through  the  use  of  a particular  detailed  analytical  model 
of  the  cylinder,  and  it  was  concluded  that  NASTRAN  was  feasible 
to  use.  The  results  of  the  uniform  cylinder  test  are  sum- 
marized below. 

A steel  cylinder  6 inches  high,  5.75  inches  in  diameter,  and 
with  a wall  thickness  of  1/8  inch  was  excited  with  the  Boeing 
Vertol  siren  and  its  natural  frequencies  were  measured.  For 
comparison  and  correlation,  a NASTRAN  model  was  made  of  the 
test  cylinder  using  three  different  mesh  sizes.  The  model  was 
comprised  of  homogeneous  quadrilateral  plate  eleraents  and  was 
assumed  to  be  a free-free  body.  A plane  of  symmetry  was  used 
to  reduce  the  number  of  grJd  points  to  reduce  computer  run  time. 
Grid  points  off  the  plane  of  symmetry  were  allowed  inertial 
properties  only  in  radial,  azimuthal,  and  vertical  directions. 
Rotations  were  omitted.  The  spacing  between  grid  points  was 
varied  as  45,  22,5,  and  10  degrees,  and  the  model  was  eight 
plates  high  for  each  of  the  three  spacings  (Figure  42) . The 
computer  execution  time  for  the  various  configurations  is  in- 
dicated by  Figure  43. 


The  natural  frequencies  predicted  by  NASTRAN  (Rigid  Format  3) 
were  compared  to  the  experimentally  measured  frequencies. 

Good  correlation  was  not  obtained  in  the  frequency  range  up 
to  3000  Hz  until  the  grid  spacing  was  reduced  to  10  degrees. 
Table  7 and  Figure  44  summarize  the  predicted  and  measured 
frequencies,  and  the  first  six  mode  shapes  predicted  by  NASTRAN 
are  shown  in  Figure  45. 

An  analytical  solution  for  a uniform  disc,  v'hich  served  as  a 
second  test  case,  is  also  available  in  Timoshenko.  This  was 
also  modeled  by  Boeing  Vertol  using  NASTRAN,  The  second  dia- 
metral mode  is  shown  in  Figure  46.  The  reason  for  this  cor- 
relation study  was  to  justify  the  use  of  NASTRAN  as  a design 
tool  for  the  dynamic  analysis  of  turbine  discs  such  as  those 
used  in  the  T55-U-11A  gas  turbine  engine.  The  results  of  the 
Timoshenko  analysis  of  the  uniform  disc  compared  well  with 
the  NASTRAN  prediction.  Figure  47  shows  correlation  of  NASTRAN 
versus  test  for  the  third  stage  bolted  turbine  disc. 
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Figure  46,  NASTRAN  Plot  of  Disc  (2-D  Mode) . 
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Figure  47.  T55-L-11A  3rd  Stage  Bolted  Turbine  Disk 

NASTRAN  Natural  Frequencies  and  Mode  Shapes 


STRUCTURAL  ANALYSES  INPUT  LANGUAGE  PREPROCESSOR  PROGRAM 
(SAIL  II) 

The  contractor  has  developed  pre-  and  post-processor  computer 
programs  compatible  with  NASTRAN  to  improve  its  utility.  One 
of  these  is  a sophisticated  finite  element  input  capability 
for  use  with  NASTRAN  entitled  SAIL  II  (Structural  Analyses 
Input  Language) . This  preprocessor  allows  the  user  to  take 
advantage  of  any  pattern  which  occurs  in  the  data  by  making 
available  straightforward  techniques  for  describing  algorithms 
to  generate  blocks  of  data.  Grid  points  and  element  connections 
may  be  generated.  This  program,  although  proprietary  to  the 
contractor,  has  been  utilized  and  is  available  for  purchase 
by  industry.  An  alternative  for  nodal  generation  and/or  connec- 
tivity would  be  user  generated  WATFOR  computer  programs  which 
would  punch  out  the  NASTRAN  input  bulk  data  cards . Although 
the  contractor  has  chosen  to  use  SAIL  II  and  feels  that  this 
program  is  more  versatile,  other  users  of  NASTRAN  can  conduct 
the  same  work  by  the  alternate  method.  The  Boeing  Vertol 
SAIL  II  computer  program  is  compatible  for  use  with  NASTRAN 
Level  16. 

For  tl:iis  contract,  NASTRAN  Level  15.5  was  specifically  used. 

HELICOPTER  TRANSMISSION  HOUSING  ANALYSIS  (INCLUDING  COMPOSITES) 

In  order  to  determine  the  dynamic  or  stress  characteristics 
of  the  CH-47C  forward  transmission  housing  and  to  evaluate  the 
use  of  various  composite  or  isotropic  materials,  a finite  ele- 
ment model  of  the  housing,  ring  gear,  and  upper  cover  was  con- 
structed and  analyzed.  The  modeling  and  analysis  consisted 
of  the  following  items: 

1.  Establishment  of  the  grid  point  network  to  define  the 
housing  structural  model. 

2.  Definition  of  the  structural  element  connections  and 
section  properties  of  transmission  housing.  The  housing 
was  assumed  in  parts  to  be  axisymmetric,  and  automatic 
node  generation  and  structural  connectivity  computer 
programs  were  employed  to  generate  the  full  transmission 
housing  (e.g.,  SAIL  II). 

3.  Definition  of  material  properties  of  anisotropic  or 
isotropic  transmission  housing  by  computing  equivalent 
orthotropic  material  properties  using  an  existing  NASTRAN 
preprocessor  (S-71,  Point  Stress  Laminate  Analysis) 
(Reference  20) . This  same  computer  program  (S-71)  may  be 
used  after  the  NASTRAN  analysis  as  a post-processor  to 
obtain  interlaminar  and  laminar  stresses  in  transmission 

20.  Reed,  D.L.,  POINT  STRESS  LAMINATE  ANALYSIS,  Document 

FZM-5494,  Prepared  for  Advanced  Composite  Division,  Air 
Force  Materials  Laboratory,  WPAFB,  Ohio,  April  1970, 
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housing  areas  of  highest  siri^ain.  Figure  48  illustrates 
the  leimina  or  layer  coordinat:e  system  (1-2)  which  is 
transformed  by  S-71  to  the  laminate  (X-Y)  axis  system. 

In  Figure  48,  the  resultant  stresses  and  moments  of  the 
laminate  are  shown.  These  represent  a system  which  is 
statistically  equivalent  to  the  stress  system  that  is 
acting  on  the  laminate.  The  notation  used  in  computer 
program  S-71  for  a particular  lamina  within  a laminate 
is  also  shown  in  Figure  48.  The  program  will  accommodate 
up  to  400  layers.  Tne  equivalent  material  properties  of 
the  lamina  may  be  calculated  for  the  laminate.  These 
would  be  used  as  input  for  the  NASTRAN  analysis.  Also, 
a point  stress  analysis  can  be  performed  and  thermal  loads 
may  be  calculated.  Lamina  stresses  and  interlaminar 
shears  can  also  be  calculated. 

4.  Establish  appropriate  constraints  for  the  6 degrees  of 
freedom  at  each  grid  point. 

5.  Optimize  grid  point  sequencing  and  matrix  bandwidth  for 
efficient  computer  execution  (BANDIT) . 

6.  Plot  and  debug  structural  model. 

7.  Define  and  apply  dynamic  loads  (bearing  reaction)  to  model. 

8.  Run  dynamic  analysis  (NASTRAN  Rigid  Formats  3 and  11)  to 
predict  dynamic  deflections  and  loads. 

Optimization  techniques  using  a strain  energy  density  approach 
have  been  developed  to  identify  those  areas  of  the  housing 
v/hich  are  most  sensitive  dynamically.  The  analysis  as  it  is 
being  applied  to  the  CH~47C  rotor  transmission  is  outlined 
below. 

The  Boeing  Vertol  CH-47  forward  rotor  transmission  housing  is 
composed  of  three  major  sections;  upper  cover,  ring  gear, 
and  case  (Figure  49) . The  upper  cover  provides  lugs  for 
mounting  the  transmission  to  the  airframe  and  transmits  the 
rotor  system  loads.  The  case  contains  and  supports  the  main 
bevel  gears.  The  ring  gear,  which  connects  the  upper  cover 
and  case,  contains  the  planetary  gear  system.  This  natural 
division  of  the  housing  was  adhered  to  for  ease  of  modeling. 

The  geometric  grid  points  for  the  model  were  defined  from 
design  drawings  and  by  cross-checking  on  an  actual  housing. 
CQUAD2  (Quadrilateral)  and  CTRIA2  (Triangular)  homogeneous 
plate  (membrane  and  bending)  elements  were  used  to  connect 
the  grid  points  and  build  the  NASTRAN  structural  model.  A 
Boeing  Vertol  preprocessor  program  (SAIL  II  - Structural 
Analyses  Input  Language)  for  the  automatic  generation  of  grid 
point  coordinates  and  structural  element  connections  was  used. 


183 


TRANSMISSION  HOUSING  MODEL 


Figure  49.  Boeing  Vertol  CH-47  Helicopter  Forward  Rotor 
Transmission  Housing  and  NASTRAN  Model. 


This  preprocessor  allows  the  user  to  take  advantage  of  any 
pattern  which  occurs  in  the  data  by  providing  straightforward 
techniques  for  describing  algorithms  to  generate  blocks  of 
data.  The  extensive  computer-generated  plotting  capability  of 
NASTRAN  was  used  to  debug  the  structural  model. 

For  ease  of  identification  the  housing  was  siabdivided  into 
several  regions  and  the  grid  points  in  each  region  were  labeled 
with  a specific,  but  arbitrary,  series  of  numbers.  Although 
these  grid  point  numbers  act  only  as  labels,  they  affect  the 
bandwidth  of  the  stiffness  and  mass  matrices.  In  order  to 
minimize  the  matrix  bandwidth  for  most  efficient  running  of 
NASTRAN,  the  BANDIT  computer  program  (Reference  21)  was  used 
to  automatically  renumber  and  assign  internal  sequence  numbers 
to  the  grid  points.  The  output  from  BANDIT  is  a set  of  SEQGP 
cards  which  are  then  included  in  the  NASTRAN  bulk  data  deck  and 
which  relate  the  original  external  grid  numbers  of  the  internal 
numbers. 

The  model  includes  grid  points  representative  of  the  structure 
where  the  shafts  are  supported  by  their  bearings.  These  grid 
points  are  used  to  apply  the  dynamic  excitations  at  the  mesh 
frequencies  to  analytically  excite  the  housing.  Although  each 
geometric  grid  point  has  six  possible  degrees  of  freedom  (three 
translational  and  three  rotational) , the  displacements  normal 
to  the  outer  surface  of  the  housing  are  of  most  interest  for 
noise  evaluation  since  it  is  this  out-of-plane  motion  which 
generates  sound  waves.  To  conveniently  evaluate  the  motion 
normal  to  the  housing  surface,  numerous  local  coordinate 
systems  were  defined  and  oriented  such  that  the  displacements 
and  accelerations  calculated  at  each  grid  point  could  be 
referred  to  a coordinate  system  having  an  axis  noirmal  to  the 
housing  surface  (Figure  50) . One  degree  of  freedom,  rotation 
about  the  normal  to  the  surface,  was  constrained  since  the 
stiffness  for  this  component  is  undefined  for  NASTRAN  plate 
elements.  The  other  two  rotational  degrees  of  freedom  were 
omitted.  All  translational  degrees  of  freedom  were  retained 
to  accurately  represent  the  motion  of  the  actual  housing. 
Because  of  the  large  model  size,  the  Guy an  reduction  technique 
was  used  to  reduce  the  size  of  the  analysis  set.  The  Givens 
method  of  eigenvalue  extraction  v/as  used  and  the  model  param- 
eters are  summarized  in  Figure  51.  The  NASTRAN  weight 
generator  feature  was  also  used  to  calculate  the  model  weights, 
which  are  also  summarized  in  Figure  51. 

The  contractor  has  developed  confidence  that  the  modeling 
procedure  provides  an  accurate  representation  of  the  actual 
transmission  housing  for  the  following  reasons: 


21.  Everstine,  G.,  BANDIT  - A COMPUTER  PROGRAM  TO  RENUMBER 
NASTRAN  GRID  POINTS  FOR  REDUCED  BANDWIDTH,  Naval  Ship 
Research  and  Development  Center  Technical  Note  AML-6-70, 
February  1970. 


Figure  50.  Transmission  Noise  Generated  by  Out -Of-P lane 
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o Use  of  a widely  accepted  and  thoroughly  validated  computer 
program  (NASTRAN) . 

o Extensive  computer-generated  plotting  capability  used  to 
debug  model. 

o Cross-checking  of  model,  design  drav/ings,  and  hardv/are. 

o Good  correlation  of  model  and  hardware  weights. 

o Further  validation  is  ongoing  in  the  form  of  correlation 
of  dynamic  response  of  model  with  test  data. 


Each  natural  mode  of  a structure  contributes  to  vibration  in 
proportion  to  its  amplification  factor.  Consequently,  since 
each  mode  whose  frequency  is  iri  the  vicinity  of  a forcing 
frequency  will  be  a major  contributor  to  the  overall  dynamic 
response,  it  is  desirable  to  alter  the  housing  natural  frequen- 
cies so  that  none  fall  close  to  an  exciting  frequency. 

Strain  energy  techniques  for  structural  optimization  have 
evolved  in  recent  years.  For  applications  such  as  helicopters 
•v/hers  weight  is  critical,  it  is  more  appropriate  to  evaluate 
the  strain  density  (strain  energy/volume)  distribution  v/ithin 
a structure  which  provides  guidance  for  vibration  reduction  by 
identifying  the  structural  elements  participating  in  the  modes. 
To  optimize  a housing  for  iniiiirnum  vibration/noise,  the  NASTRAN 
norrral  modes  analysis  is  used  to  obtain  a dynamic  solution; 
by  employing  the  ALTER  feature  of  NASTRAN,  a checl-.point  tape 
containing  the  stresses  for  each  element  is  generated.  The 
natural  frequencies  calculared  are  coinpared  v/ith  the  gear  mesh 
exciting  frequencies  to  identify  each*  mode  shape  v/h.ose  natural 
frequency  is  close  to  an  exciting  frequency  and  v/iiich  it  is  . 
desirable  to  shift.  A post-processor  program  (S-dd)  has  been 
developed  wnich  uses  the  data  storcs-1  on  the  checkpoint  tape 
to  calculate  the  strain  density  of  NASTRAN  plate  elements  and 
tabulate  thic  elements  in  order  of  oescending  strain  density. 

The  structural  elciaents  v/it.h  t'ne  highest  strain  density  arc 
the  best  candidates  for  effective  mo  lit ica tion  of  t;iG  natural 
frequency,  since  a minimal  weight  change  will  yield  a maximum 
shift  in  natural  frequency.  By  locally  altering  the  housing 
wall  to  change  the  mass  and  stiffness  in  the.se  .areas  of  high 
strain  density,  the  natural  frequency  may  be  shifted  av/ay  from 
an  exciting  frequency.  Thus,  the  possibility  of  resonance  is 
eliminated  and  the  vibration  and  radiated  noise  are  reduced. 
This  strain  density  distribution  concept  will  also  be  utilized 
statically  to  identify  structural  load  paths  and  evaluate  the 
efficiency  of  the  housing  structural  design  (stiffness/weight) . 
By  controlling  this  energy  distribution,  stress,  vibration/ 
noise,  and  v*;eight  may  be  reduced. 
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Figures  52 r 53.  and  54,  respectively,  show  a NASTRAM  plot  of 
the  housing  (left  and  aft  views),  some  typical  natural  fre- 
quencies in  the  vicinity  of  meshing  frequencies,  and  a NASTRAN 
plot  of  a typical  mode  shape. 

NASTRAN,  LEVEL  16 

With  the  advent  of  NASTRAN,  Level  16,  with  its  capability  to 
calculate  strain  energy,  it  may  be  used  in  place  of  D-82,  S-68, 
and  S-83  for  all  calculations  (shafts  and  housing) . This  can 
be  done  as  follows: 

1.  Conduct  a dyncimic  analysis  (Rigid  Format  3)  f ir  shafts 
and  housing.  Punch  out  eigenvectors. 

2.  Reformat  the  punched  output  to  SPC  type  input.  Execute 
Rigid  Format  1 to  obtain  strain  energy  for  structural 
elements. 

Two  post-processor  computer  programs  were  developed  to  expedite 
and  expand  upon  the  above-mentioned  procedures . A listing  of 
a computer  program  for  use  with  NASTRAN,  Level  16  in  order  to 
take  punched  strain  energy  output  from  Rigid  Format  1 and  sort 
and  analyze  is  shown  in  Appendix  F.  Appendix  G contains  the 
listing  of  a second  computer  program  to  be  used  with  NASTRAN, 
Level  16,  to  reformat  Rigid  Format  3 to  punched  eigenvector 
output  for  execution  with  Rigid  Format  1 as  SPC  cards  for 
strain  energy  calculations.  A sample  strain  energy  output 
which  was  sorted  and  analyzed  using  the  above  programs  is 
shown  in  Figure  55. 
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Figure  54.  NASTRAN  Plot  of  Deformed  Housing, 
Mode  #46,  Frequency  3141  Hz. 
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Figure  55.  Sample  Strain  Energy  Output 
(Sorted  and  Analyzed) . 
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STRAIN  ENERGY  ANALYSIS  PROGRAMS  (S-68  AND  S-83) 


PROGRAM  DESCRIPTION 


Engineering  judgment  has  traditionally  provided  an  approach 
to  the  optimization  of  a helicopter  structure  for  vibration. 

This  requires  the  engineer  to  have  a prior  comprehensive 
understanding  of  the  analytical  model,  i.e.,  the  eigenvalues  and 
eigenvectors  of  the  structure  together  with  their  influence 
on  critical  structural  elements.  Many  cases  of  structural 
changes  would  be  evaluated  using  the  finite  element  dynamic 
solution,  and  the  most  favorable  changes  for  the  final  design 
would  be  chosen  from  the  study.  This  has  proved  to  be  a 
virtually  impossible  method,  however,  because  the  enormous 
number  of  structural  elements  and  the  need  for  side  constraints 
make  the  number  of  possibilities  for  structural  changes  quite 
large.  This  approach  is  limited  in  that  it  only  provides  for 
studies  of  known  structural  change  effects.  For  a new  design, 
identification  of  the  structural  components  that  have  a 
critical  influence  on  vibration  would  be  difficult.  Also,  no 
criteria  exist  to  ensure  that  the  final  structural  changes 
are  optimum.  The  engineering  judgment  approach  at  best  pro- 
vides a minimal  analytical  tool  for  vibration  design  of  new 
structures . 

In  recent  years,  a trend  to  dynamic  optimization  by  strain 
energy  techniques  has  evolved.  This  has  mainly  been  for 
the  optimal  alteration  of  one  undesirable  natural  frequency. 

To  understand  the  technique,  consider  that  in  general  each 
natural  mode  of  the  structure  contributes  to  vibration  in  pro- 
portion to  its  amplification  factor.  Consequently,  each  mode 
whose  frequency  is  in  the  vicinity  of  the  forcing  frequency 
would  be  a major  contributor  to  the  overall  dynamic  response. 

In  the  modal  method,  which  operates  principally  on  the  ampli- 
fication factor,  the  natural  frequency  immediately  above  the 
exciting  frequency  is  usually  increased.  One  could  also  reduce 
the  natural  frequency  immediately  below  the  exciting  frequency 
if  it  is  possible  structurally. 

Analysis  has  previously  been  developed  verifying  that  a 
minimum  weight  structure  with  a specified  natural  frequency 
is  one  wherein  the  density  differential  is  uniform  throughout 
the  structure  when  deformed  in  its  natural  mode  (Reference 
6),  The  density  differential  of  a structural  element  is 
the  difference  between  the  strain  energy  per  unit  volume 
(strain  density)  and  the  kinetic  energy  per  uni.t  volume 
(kinetic  density) . In  most  cases,  the  strain  density  may  be 
used  as  an  approximation  of  the  density  differential,  since 
the  kinetic  density  is  relatively  small.  Since  the  objective 
for  aircraft  is  a maximum  eigenvalue  shift  for  a minimum 
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weight  change,  the  strain  energy  density  is  used  rather  than 
the  strain  energy  itself.  It  follows  that  a complex  struc- 
ture can  most  efficiently  be  redesigned  dynamically  by 
ensuring  that  the  modal  strain  density  is  uniform  throughout 
the  structure.  Hence,  vibration  opLimi  iid Lion  of  a structure 
can  be  put  on  a more  scientific  basis  if  one  considers  its 
modal  strain  energy  or  density  distribution. 

A finite  element  analysis  is  first  employed  in  the  modal 
method  to  yield  a dynamic  solution.  The  eigenvectors  (mode 
shapes)  are  obtained,  then  the  modal  strain  eiiergy  distri- 
bution throughout  the  structure  is  found  for  any  given  mode 
shape  whose  natural  frequency  is  to  be  modified.  The  strain 
energies  for  all  structural  elements  are  obtained  and  then 
tabulated  from  the  highest  to  lowest.  The  structural  ele- 
ments in  the  highest  strain  would  be  the  best  candidates 
for  modification  of  the  natural  frequency.  This  follows 
intuitively  in  the  modal  case  from  the  almost  invariency 
of  the  mode  shapes  and  from  Rayleigh's  quotient.  Theory  also 
substantiates  this  in  that  it  has  been  proven  analytically 
that  the  rate  of  change  of  a natural  frequency  (eigenvalue) 
with  respect  to  a structural  parameter  (thickness  herein) 
of  an  element  is  equal  to  the  strain  energy  of  the  structural 
element  when  the  entire  structure  is  deformed  according  to 
the  mode  shape.  For  example,  in  the  case  of  increasing 
the  lowest  mode,  the  elements  with  the  highest  strain  density, 
when  deformed  in  this  mode,  would  be  the  best  candidates  for 
modification  to  obtain  a maximum  eigenvalue  shift  for  a 
mini.mum  weight  penalty  (i.e.,  optimally). 

Two  computer  programs  have  been  utilized  to  evaluate  the 
strain  energy  of  the  transmission  components.  Using  the 
mode  shapes  calculated  in  D-82  for  the  shaft  model,  program 
S-68  has  been  used  to  identify  the  areas  of  high  strain  energy 
density  for  the  shafting.  A listing  of  this  program  is 
contained  in  Appendix  H.  S-68  computes  the  normalized  strain 
energy  for  each  structural  element  using  the  critical  modes 
independently.  Then  the  strain  density  of  each  element  is 
determined  as  a function  of  its  volume.  These  are  then 
sorted  from  the  highest  to  lowest  strain  density,  and  the 
elements  with  high  strain  density  are  then  the  optixnal  irierabers 
to  change  for  a minimum  weight  penalty  in  order  to  shift  the 
natural  frequency.  This  program  was  developed  by  Boeing  Vertol 
under  Army  Research  Office  contract  DAHC04-71-C-0048.  A 
second  strain  energy  program  (S-83)  compatible  with  NASTRAN 
(plate  elements)  has  been  developed  and  used  to  identify  the 
listing  of  this  program  is  contained  in  Appendix  I,  These 
areas  are  directly  associated  with  undesirable  vibrations  and 
noise.  Though'  variations  exist  in  wall  thickness  and  geometry, 
these  regions  can  he  modif’ed  to  provide  an  improved  design 
configuration.  To  optimize  a housing  for  minimum  vibration/ 
noise,  the  NASTRAN  normal  modes  analysis  is  used  to  obtain  a 
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dynamic  solution.  By  employing  the  ALTER  feature  of  NASTRAN, 
specifically  for  Rigid  Format  3, 


ALTER  107 


CHKPNT  OESl,  OEFl  $ 


ENDALTER 

a checkpoint  tape  containing  the  stresses  (data  block  OESl) 
and  forces  (data  block  OEFl)  for  each  element  is  generated. 
These  should  come  last  in  the  case  control.  "ELFORCES"  and 
"STRESSES"  should  also  be  calculated.  The  S-83  post-processor 
program  reads  the  modal  dynamic  stresses  from  the  checkpoint 
tape  for  each  mode  shape,  calculates  the  strain  density  of 
each  of  the  NASTRAN  plate  elements. 


S.D. 


S.E. 

V 
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2E 


«r 
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max 
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' min 
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where 


S.D.  is  the  strain  density, 

S.E.  is  the  strain  energy, 

E is  Young's  modulus, 

^ max'  ^min  are  principal  stresses, 
/A  is  Poisson's  ratio,  and 
V is  the  volume  of  the  element. 


and  then  tabulates  the  elements  in  order  of  descending  strain 
density . 

In  the  calculation  of  the  plate  stresses,  NASTRAN  calculates 
the  stresses  for  the  upper  and  lower  surfaces.  S-83  has 
options  whereby  the  strain  density  calculation  may  be  based 
on  upper  stresses,  lower  stresses,  or  membrane  stresses, 

<fu  - n,  + K 
01  - o~b  - n 

- q~u " 

(Ta  - ru  - n 

2 


where 


yields 
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and  where  the  subscripts 


u is  upper, 

L is  lower, 
b is  bending,  and 
a is  men±irane. 


The  above  separation  of  bending  and  membrane  stress  would 
yield  another  and  more  exacting  strain  density  analysis.  For 
the  housing,  the  outer  combined  bending-membrane  stresses 
were  used. 

In  order  to  determine  whether  strain  energy  methods  could  be 
used  for  the  vibration  reduction  of  a large,  complex  structure, 
some  evidence  as  to  feasibility  was  needed.  These  methods 
have  been  successfully  applied  to  the  vibration  reduction  of 
the  Boeing  Vertol  Model  347  helicopter,  impedance  methodology 
(applied  to  the  design  of  absorbers)  and  detuning  of  the  347 
fuselage  (by  structural  modification)  have  resulted  in  an 
exceptionally  low  final  vibration  level  throughout  the  entire 
flight  envelope.  The  structure  to  be  modified  for  detuning 
was  indicated  by  the  modal  strain  energy  technique.  Hence, 
the  feasibility  of  strain  energy  methods  was  established  as  a 
practical  means  for  dynamic  design  for  large  complex  structures 
(Reference  5) . Figures  56  and  57  show  this  (analytically)  for 
the  CH-47C  forward  transmission  ring  gear. 

This  strain  density  distribution  concept  can  also  be  utilized 
statically  to  identify  structural  load  paths  and  evaluate  the 
efficiency  of  the  housing  structural  design  (stiffness/weight) . 

PROGRAM  INPUT  AND  OUTPUT  FORMAT 

The  input  format  to  S-68  is  compatible  with  D-82  input  format 
except  as  noted. 

1.  Cards  after  loader  locations  0026  must  be  removed  up  to 
the  "88888"  card  (sheet  1) . 

2.  C-51  cards  must  be  removed  after  the  "99999"  card  following 
the  masses  input. 

3.  At  end  of  deck,  add  nxmnber  of  modes  to  be  analyzed  (15, 
card  1)  and  mode  shapes  desired  (1615,  card  2) . 
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Figure  57,  CH-47  Forward  Rotor  Transmission  Ring  Gear; 

Modified  Configuration  and  Resulting 
Spectrum  (at  80%  Torque,  7460  RPM 
Sync  Shaft  Speed) . 
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An  example  of  output  from  the  strain  energy  density  computer 
program  S-68  is  shovm  in  Figure  58.  In  addition,  a flow 
diagrari  of  the  operation  of  computer  program  S-68  is  sliown  in 
Figure  59.  Figure  60  illustrates  the  application  of  computer 
program  S-68  to  the  CH-47C  forward  pylon  natural  frequencies 
alteration.  This  example  shows  how  modification  to  the 
structure  can  move  the  natural  frequencies  away  from  an 
exciting  frequency  and  thereby  reduce  the  amplification  factor. 

Since  S-83  will  calculate  centerline  stresses  from  data 
containing  bending  stresses,  a flag  must  be  input  to  indicate 
whether  or  not  bending  forces  are  to  be  processed  and,  if  not, 
which  of  the  two  fiber  distances  will  be  used.  Output  includes 
a reference  plate  thickness,  and  when  CTRIAl  or  CQUADl  elements 
exist,  the  user  must  flag  the  thickness  to  be  output?  the 
default  is  membrane  thickness.  The  thickness  specified  has 
no  effect  on  the  output. 

Figure  61  shows  a typical  S~83  input  sheet  which  is  rather 
standard  except  for  Poisson's  ratio  and  the  modulus  of 
elasticity.  The  cards  are  divided  into  ten  fields  of  eight 
columns  each.  Figure  62  shows  a typical  S-83  strain  density 
outpiit  (sorted)  for  the  CH-47C  forward  transmission  housing. 
Using  this  output  to  identify  high  strain  density  areas,  a 
compromise  modification  (two  contour  plates)  to  the  housing 
for  detuning  natural  freqviencies  near  four  mesh  excitions  is 
shown  in  Figure  63. 
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NOTES : 


1. 

2. 


Mnemonics  are  "bending"  or  "membrane" . 


Force  Flag:  Process  plate  forces, 

centerline  stresses 

=-l.  Do  not  process  plate 
first  fibre  stress 


=-2,  Do  not  process  plate 
second  fibre  stress 


calculate 
forces,  use 
forces,  use 


CARD  2 


COLUMN  2 

$OMIT  IXCLUD  = _$END 

Program  S-83  includes  strain  density  calculations  for  CQUADl, 
CTRIA2,  CQUAD2  and  CTRIA2  elements. 
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CONCLUSIONS 


A complex  gearbox  such  as  a helicopter  rotor  transmission 
typically  has  more  than  one  gear  mesh,  hence  more  than  one 
exciting  frequency.  For  instance,  the  Boeing  Vertol  CH-47C 
helicopter  forward  rotor  transmission  employs  a spiral  bevel 
gear  mesh  plus  a two-stage  planetary  gear  system.  Additional 
sources  of  exciting  frequencies  in  the  form  of  sidebands  are 
introduced  by  planetary  gear  configurations  and  manufacturing 
variations.  This  occurrence  of  multiple  exciting  frequencies, 
coupled  with  the  fact  that  the  housing  pos; asses  many  natural 
frequencies,  makes  it  a complex  task  to  detune  the  housing  so 
that  none  of  the  exciting  frequencies  coincides  with  a natural 
frequency.  The  primary  frequencies  for  the  CH-47  forward 
rotor  transmission  have  been  identified  experimentally  as  the 
bevel  gear  mesh  frequency  and  the  lower  planetary  gear  mesh 
frequency  (LPl)  and  its  second  (LP2)  and  third  (LP3)  harmonics. 

Experimentation  which  included  the  dynamic  testing  of  a CH-47C 
forward  transmission  with  internal  instruirientation  to  measure 
strains , displacements , and  accelerations  of  the  rotating 
components  and  external  instrumentation  to  measure  housing 
acceleration  and  noise  indicated  that  by  modifying  the  gear/ 
shaft/bearing  system  geometry  the  internal  components  may  be 
detuned  to  minimize  excitation  of  the  housing.  Application 
of  strain  density  techniques  to  these  dyneunic  components  has 
identified  modifications  which  have  analytically  reduced  the 
loads  exciting  the  housing  at  the  bevel  mesh,  LP2  and  LP3 
frequencies,  but  increased  the  loads  at  the  LPl  frequency. 

Since  the  effects  of  multiple  noise  sources  are  added  logariUim- 
ically,  the  reduction  of  three  out  of  four  noise  sources  may 
not  appreciably  reduce  the  overall  noise  level. 

Noise  measurements  have  tended  to  confirm  that  housing  respon- 
ses exist  and  generate  noise.  This  is  evidenced,  for  example, 
by  the  LP2  and  LP3  frequencies.  Although  the  exciting  source 
for  these  frequencies  is  within  the  ring  gear,  the  maximxm 
noise  at  these  frequencies  emanates  from  the  mid-case  region. 

It  is  important  to  note  that  since  the  exciting  frequencies 
will  vary  with  changes  in  operating  speed,  the  housing  must 
be  detuned  at  a specific  operation  speed  (i3%)  . The  use  of 
strain  density  has  led  to  preliminary  identification  of  the 
areas  of  the  housing  structure  which  must  be  modified  to 
detune  the  housing  for  reduced  vibration/noise.  The  strain 
density  distribution  was  determined  using  the  NASTRAN  post- 
processor for  the  modes  with  frequencies  nearest  to  the  four 
main  exciting  frequencies,  and  the  elements  with  high  strain 
density  were  identified.  For  each  mode  considered,  the  elements 
with  high  strain  density  are  generally  different;  hov/ever, 
some  elements  are  common  to  two  or  more  of  the  modes.  Strictly 
speaking,  the  elements  with  highest  strain  density  for  each 
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mode  should  be  modified  to  achieve  the  maximum  frequency  shift 
for  each  corresponding  mode.  This  approach  would  be  used 
during  the  design  of  a new  housing.  To  modify  an  existing 
housing,  however,  it  would  be  cumbersome  to  incorporate  the 
numerous  and  varied  modifications  indicated  by  such  a rigorous 
application  of  the  analysis.  Therefore,  for  practical 
application  to  the  experimental  housing  herein,  those  elements 
with  a relatively  high  strain  density  which  are  common  to  two 
or  more  modes  have  been  identified  and  were  used  to  shift  the 
housing  frequencies.  In  this  manner  a specified  structural 
change  altered  two  or  more  frequencies , although  perhaps  no 
single  frequency  would  be  shifted  maximally.  It  is  more 
feasible  to  modify  these  elements,  since  the  actual  changes  to 
the  existing  housing  design  for  testing  were  limited  to  a few 
easily  accessible  areas  on  the  exterior  walls  of  the  housing. 
This  approach  provided  sufficient  detuning  to  demonstrate  the 
validity  of  the  analyses.  Prior  to  finalizing  the  detuned 
design,  the  dynamic  response  of  the  model,  with  the  structural 
modification  incorporated,  was  recalculated  using  NASTRAN. 

The  basic  analytical  approach  used  as  a design  tool  for  trans- 
mission vibration/noise  reduction  has  been  partially  validated. 
The  method  unites  the  internal  components  and  the  housing,  and 
hence  optimizes  the  transmission  as  a complete  operating  system. 
Since  the  housing  provides  structural  support  to  the  internal 
components,  its  physical  characteristics  grossly  affect  per- 
formance and  life  in  terms  of  internal  bearing  capacity,  gear 
capacity,  fretting,  misalignments,  etc.  Therefore,  housing 
optimization  is  essential  if  the  full  benefit  of  the  advance- 
ments in  gear  and  bearing  technology  are  to  be  realized. 
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APPENDIX  B 


LISTING  OF  PROGRAM  FOR  PREDICTION  OF 
GEAR  MESH  DYNAMICS  FOR 
HIGH-CONTACT-RATIO  SPUR  GEARS  (R-75) 


o'o  o olo  o cjIo  o o!o 
o o o a o o o o o 0,0 
ci  o o olo  o w,o  u old 
u o o o o o o'o  o oicj 

^ ry  •t  i/'  O {^  Oj-4 

o o o o a o Q o o •-<'  - 


lo  O 0,0  o o 
o o o o o o 


1<L  Q ot 

'X  < 

;0  o 


O < 0,<N 

{w  X > I 

|0  I xi® 

Iz  >•  tiJ.r- 

!w  < ■« 

ui  jj 

< <1 


QC 

O O 


X( 

I' 

0 

u«! 

X' 


^ m O w)  3^  o 'SI  m -r  »r»  >o  V' 

Zm  .h  fsilf^  rj  fsiiisj  fM  !*>  >t  'T  ' 

o o O O O OlO  00t0v>0|0  00000.0  00i0  00000.c5 

o o olo  O O O O OlO  O OIU  o oju  o Olu  O Oju  O OjW  o u o 


< 1 ^ 


o o o o o'o  o olo  o o o o o 
O O'O  o o o o o'o  o olo  o o 

-H  O'O  O 0‘C  O O’O  Q ojo  O 0| 

CJ  O O U O'O  o O O o ol^>  o o 

^ f\i  •r  tn  o'  O ^ 

O O O CJ  0| 
o o o' 

•F-l  <Si  O 
o US 
— 

CJ  o o 
'O  u 


. 

•o  -I 

o W.o  o 

O —lus  US  O I 
fft  ^ I" 

o-  CJ  -4  M 

O n.-n  n u_, 
u;  -J 

^ -U  « .ju. 

US  US  O ^ • 

-» jv"u  u'  o'  — 

o ^ W «'  US, US 
O ru'N  -<  p* 
o CJiO  1 o p 

4'n  u. 

Si's!  0)0 


O O O o o 0;0  O O tJ  o olo  O OjO  O Ojo  O 0.0  O O.a  o o 
O O O'O  o o o o o o o o|o  O ojo  O O O O 0,0  o o o o o 

OOOOUO'OOOOoOOOOOOOOOOOOOOOtJ 

o'o  o S-O  o o o o o o o o o CJ  cjjO  o c->,o  ^ ^ o ^ ^ 

»j*usw>»^i®3‘CJ'siri.rus>o»^’‘7>€^ol»^'Nrs,«rus<»r-o^-Or**^ 


|o  ^ 

P US 

J,  • <N 

O <S)  — 
a\*n 
••‘O  ►- 


I -l! 


o US'US  o!  - 

->fV'N  «/sj—  O' 

U.  Mtfiw  •«lus  US! 

• |SUf<N 

-I  u -> 

U Ol-J 

o •i'^  • 

o — • — 

«M  ««'—  O 

•w  ru'o  u' 


•-«  •4!  A Cj 


|U‘  a. 

ije.. 


o — i!^  ' 
»-  Oiru  • * 
j -j!-» 

• _jl^  US 
—I  •[  * ru 

CJ  utlut  «u 
u «N  'U  O 
m •«*  p “J 
.M  -<l-4  at 
O OiCJ  • 

CP  — 

O -/('S*  O •- 
•k|  • US  u** 


.o  -> 

'US  CJ 


* US 


J*  CJ 

o • c*. 

|CJ  CJ  *1 
lo  CJ  ■— 

♦ o 

.-.  usi-'  ’1  US 

IL  W 

w -»l  * * 3> 
o o|--«s  CJ 
^ •lo  ai  •! 

-•;  L ••  o 


>\o  ' 

-• «-  :» 

Ol  • • 

••ju>  rg 

•U|0  • 
®lt.  •t 
a.!  • • 
•|<N  US 

<M  UJ  ru 
— r o -» 

US  IL.  • O 

M4  » «4  P>i 


• rg 


X -J|J^  * 


O O U 'U  CJ  CJ  ,o  u u 
[o  o CJjO  O 0|0  CJ  o 


eg 

■f 


I *"1 

ju.  14/  ^ 

X 


• ^ 

-V  • US 
lu.  a rg 

tt  VJ 


A'  usj 

^.'Zi 


•lU 

Gl- 

•u.x 


-I  • 


CP 

CJ 


I v*  o 
• o 

i 


*1 


«U  Ul.  . - 

Cj  * '•'I  ^ *v'i^  X • 

t ^ -^1  ^ '‘'I-* 

-lus  rw  — ' — -w  0,1  • CJ  CJjO  X OM 
_ — US  -v-U.  V 

lA  i:P  o oius  z r p ar  Zi—  z z'  • z 

— CJ  -♦  • -Jlw  o C-,  CJ  O »_■*  cv  O 

' • '—  • X*US  ».  x|cj  X 4.' 

P 4.  x;tj  X &.I 

p CJ  CjI  *0  *j' 

P CJ  CJi—  CJ  O' 


i»g  fN  — 

• w tf« 

F-  fu  fn 


o o, 
o o 
o u 


nc  o| 

xk 

,—  • 

Z U.' 

ICJ  ^ 

■V  CJ| 

• z 

tj!r- 

icJ  « 

4i  •; 

op 

p — 

u -1 

• * 

CJ  USj 

k •-• 

s.  rg 

ai®  o 

•^P  > 

u>  u, 

• o < 

• xi 

• J»  *1 
w -!  CJ  -1 
U.  U.  Ck.  CJ 

• * rg  • -4 

••  rvli^  r<g  ». 

l«l  A X I4J  >^1 

W OL  • CJ  ■ I 

ZZ'ZZ^l] 

Oi  UJ  —j 

It  a t “ cu 

* ► rg  • — i 

rv  iNiU.  t't 
rf.  H-  • ag  CJ 
U.  CC.  p >•  O 
j • .111.  * t*J 

I j:  v-'rg  lU 

1 w t*'.  * •*  ^ — |—  ”!' 

-•  — — I CJ  •-  oj  ij  - 

I -u  rv  lu  rg  vjjCJ  w O'l 


• XiX  X X 


|x  3 US 

z z 


irg  3 O'O  U y. 

W JL  X'O.  J.  O 'u^  -tf 

I • X o’x  a.  Cj}  * M 

l«^  CJ  Ufjcj  CJ  *-iX  jl  Uj|IU 


£i£  )i  :!i?,  “ C £ “ lls:  'u  S' 

vjlu  A -i  i-\>-  U.  la|<w  LJ  a-,.-  - ^ ^ 

•*’'  - .-*1-  r; . J.< .“.  IS  rb  r:  r 


^ US' 

O 0|  . , 

O Oi  o 0| 

CJ  Ol  o CJ. 


;o  o o 

lo  o o 


li.  **  UlC 
— ^ o c 


'■'[■o  wltr  CJ  ?r>  -^,g'  ^-|®  u*  CJ 

R4p  »-il-4  'J  rj'f'l  rg  rg.ry  f^r  rj  rg  rg  rsi 

O'O  O 0;o  ,J  Ol'-S  o OlO  rj.  O O O O; 

cjtcj  o CJ  o o o'o  O 0,0  O *^  0 O O 


FC?  i . IV  C LEVEL  VI  KAt>  OA  * 75CS9  12/A9/12 


C03i_ 

5ir 

VPl  1Fn!W,lf3) 

0CP3C00C 

Cuji 

CC  10  512 

CC5AOOCO 

CG33 

SI  1 

VRI lEINL  tlEC  1 

CC‘»50CCC 

COJA 

S12 

VRIIEINL.!  ESIThEU  .FN2.K2tl»I2tRR2 

OOS60COO 

C03S 

RRIUI  Nkf  1C5  1 

0C57CCCC 

C03t 

VRI1C(NVilC2)Tl,Fl,RFl.iEI>CEl,P0Sl 

cosacocc 

L037 

VRIILINR.U?) 

OO59C0C0 

C033 

VRnE(NV..lC2  1T2,F2,RF2.V£2,CE2,P0S2 

C06CCC0C 

C03<5 

VAIIEINV.IEA 1 

CO0LCOOC 

COAC 

ANCsfl. 

CC62C000 

CO^  1 

IMC-U 

0C63CC0C 

C0^2 

CCoaCCCO 

COA’ 

CC6sc(;cc_ 

COAA 

IfnmCP.NE.Cl  FF*  A«K 

CC66CC00 

CCAS 

IfIFF.EC.CI  72*-72 

CC67CC0C 

CQ^6 

15C 

VRIIFINV.ISCCI 

_Q0o3CC0Q 

CCV7 

FEAC INR. 112 ICLiVFI 1.VP12 

CC69C0CC 

LQA3 

RRITE(NV.ICCC)  iPC.Cl 

CC70CCQO 

CCA9 

LRIIEINV.IIOI 

_£071CC0Q__ 

CO^C 

IFI  IHICR.NE.O  CC  1C  AOC 

CC72COQO 

C051 

CC73COOO 

tCb2 

CC  209  1*1  . FF 

_CC7ACC(3a_ 

C Cr>  3 

re; C (NR. 1121 2 J1 1 I) >0011 1>  t2J2( 1) tUJ2( t 1 iHTI I ) 

0075C00C 

C 0 j 

vRUECnv  , 1C2  >20l(  I Itt  J1  ( n.2J2(I  ) »UJ2I  1.' 

C076CCQ0 

COC5 

2y;(Lt«2J2in 

QC7  7C0QC._ 

CQ56 

LR2ILl*LJ2(n 

CC78CCCC 

CC57 

IF<L-n  2<5,2C9t221 

0079COOO 

CC58 

225 

t«L-l 

_£.C80C0OO 

CCdV 

2CS 

CCMINUE 

CCSICCCC 

C06C 

<C  10  AlC 

CC82CC0C 

CC6  1 

ACC 

tCM  INUE 

CCujCCCC 

C062 

IL«£ 

CC3ACC00 

C06  3 

CC  210  1«1.A 

0C85CC0C 

C.g6^ 

IL«LL-1 

C086CC0O 

COL  5 

l«Ftl 

CC87COOO 

t06C 

CC  210  J«ltN 

C0800000 

C0il_ 

L«L-l 

_{;C.J'iCCQa_ 

cc6e 

REAC(NR,112}  ZJIO.I.ll.LJiJt ltl>)2J(LrLL,2>tUJIL.LLt2)> 

wTK  Jtl  7 

0090CCCC 

C069 

VRI  TE(NR.lC2i  2J(J>Itll  tbJU.  Itl)  »Z0(L>LL.2>  tUJILf  LLfZ) 

.WTTIJ,  !7 

00910000 

C,)7C 

lie 

CCFTIN'JE 

C092^QCOO 

C07  1 

AlC 

CCMIN'JE 

CC91C0G0 

C072 

CALL  GEASCICLiVPll.VPTZl 

C09ACC0C 

_C07  3 

KNh»IMC*N 

CC95CC0C 

C07A 

CO  200  I*l  iF 

CC96CCC0 

C07; 

,J'FNN*1-F 

CC970000 

CC7.6^ 

AAFCI  JJ1«AJC1(  I 1 

CC98CC07 

C077 

CCC(JJI<EJ1(  17 

C099CC* 

C07S 

C(JJ)«GGC(vJ  7 

oiooouoc 

C5JL3 

iiTCClJJ7.V1C(  1 7 ....  ... 

_J|iCJCCCO 

CCdC 

2CC 

f JCCK  JJ7«vJ 

0102000C 

COS  1 

1PC»IMC*1 

0103COOO 

.XilZ 

lFnMC.l£.f7<{;i  QC  TC 

cii}4cgcfi_ 

225 


u 

O 

i 

o 

o 

j 

CJ 

1 

CJ 

o 

j 

o 

o 

o 

1 

O CJ 

1 

OCJ 

CJ 

1 

o o 

c? 

1 

Ojo 

o o 

1 

o 

o 

o!o 

o 

o 

CJ 

o 

olcj 

o 

rjlcj 

o 

1 

o| 

C) 

CJ 

rj 

CJ 

i‘-’ 

CJ 

u 

O 

o 

CJ 

' > 

o 

o 

o a 

o o 

o 

o o 

o 

CJ  (J 

CJ  ' J 

CJ 

o 

OfCJ 

o 

o 

CJ 

CJ 

orj 

o 

o o 

o 

CJ 

rj 

fj 

'J 

<J) 

o 

‘o 

tj 

CJ 

rj 

CJ 

CJ 

o 

o 

CJ  CJ 

o o 

'J 

u o 

o 

O rj 

o o 

CJ 

o 

O'O 

o 

o 

o 

o 

O'O 

CJ 

CJ  o 

O C3| 

o o o o 

O o CJ'  3 

O o C3  J o o 

' O O ^ -H  ^ — 4 


' (J  o ■ 

, o I 


CJ  0.‘.>  tJ  O O «-J  O O O O O O o CJ 


Q O 
O U 

o o 
o o 


O O 'J  CJ  o <-»  CJ  CJ  O CJ  O o CJ  O CJ  CJ  O ,0  O OiO  o 
iA>o^co<7'r5*-tfM<^.  s^»r\  ^N.icoC'0;^<'>i 


o 

CJ 

o 

CJ 

Cl 

O CJ 

o 

o 

o 

o 

CJ  CJ 

'J 

CJ 

O 

CJ 

CJ 

CJ 

CJ 

CJ 

O 

O 

O 

O 

CJ  CJ  o 

o 

CJ 

O 

o 

CJ  CJ 

CJ 

o 

U 

o o 

o 

U 

CJ 

U 

O 

O 

o 

■>•4 

.4 

mJ 

X 

c^ 

>< 

X 

o. 

4-4 

'T 

CNJ 

eg 

a. 

"N. 

<M 

o 

rg 

t/l 

1 

1 

CJ 

ct 

o 

CJ 

CJ 

CJ 

CJ 

CJ 

*1^ 

V? 

oc 

X 

X 

Z 

• 

CL 

CJ 

< 

z 

m 

UJ 

DC 

ct 

X 

fr- 

f^ 

-g 

< 

< 

QC 

z 

UI 

O 

UJ 

lU 

«t 

UJ 

z 

X 

I 

X 

X 

bO 

—N 

1ft 

(Nj  ^ t/» 

\A 

UJ 

oc 

cv 

Ui 

X 

X y.  X 

X 

UL 

o 

X 

CJ 

<7^ 

l/^ 

ct  oc 

o 

a. 

« 

flC 

z 

loi 

X X 

• 

Cl. 

c£ 

X 

< 

CJ 

X 

m n X 

X 

o 

UJ 

n 

►— 

tn 

^ X rg 

eg 

Vi 

X 

VO 

X 

bj  ^ 

tg 

IX 

LX 

cl 

"g 

h- 

^ ^ 1 

< 

o 

o 

O 

o 

rg  ^ O 

O 

UJ 

z 

IX 

CM 

o 

>-  »-  o 

o 

o 

< 

1- 

CL 

»“ 

a a.  X 

X 

• 

l/> 

GC 

W 

X I 

tx 

ct 

►- 

X 

»- 

<t 

z 

cr 

f<\  00 

CO 

u. 

o 

z 

z 

CJ 

4^. 

< 

iij 

X X <J> 

o 

cc 

UJ 

X 

Ui 

OC 

0 0 2 

2 

Q 

ct 

—X 

o 

CJ 

o 

o 

CJ 

^ ^ rD 

O 

Ui 

^g 

oc 

«p« 

o 

fg  Q 

cJ 

>-4 

rv 

-X 

H 

^ O > 

> 

UJ 

cc 

C3 

UJ 

J( 

X 

o 

OC  X 

X 

“• 

CC 

» 

cj; 

* 

I X fNi 

•> 

cu 

«JU 

z 

z 

• 

CJ 

o 

KA 

ro  .-4 

)- 

iX 

fvj 

a 

fO 

o 

C3 

CJ 

o 

£ 

H X X 

X 

_J 

u 

=) 

CJ 

X 

ru 

z 

CJ 

CJ 

•T  CJ  u> 

(X 

OL 

X 

A 

«T 

Vf 

M 

tv  ^ ^ 

IV 

Z 

U. 

IN 

tr 

X 

rg 

Cl 

►- 

lU 

rg  X 

u. 

X 

<u 

r- 

og 

< 

z 

1_J 

a 

<l 

Z lu  CL 

C£ 

IX 

*-• 

X 

• 

z 

►- 

• 

4^ 

CJ 

CJ 

* 

iw 

:r* 

^ U.  X 

<x 

lJ 

cc 

*v 

<v 

X 

< 

gr 

4«g 

*J 

CJ 

■R 

o 

-J 

»'-  X 

*g 

t*J 

X 

(V 

CJ 

t 

X 

A 

«4 

Vfc. 

W 

V 

*>« 

.u< 

X ri  K 

LJ 

>CJ 

V 

Uk 

Wl 

X 

CJ 

v vj 

IV 

CJ 

.ni 

X 

•H 

CO 

a: 

X 

!u. 

♦ 

h* 

o 

» 

< 

m 

*H 

Ui 

Icj 

UJ 

OJ 

M 

tv 

CJ 

•4* 

r*> 

UJ 

4-%  U 

;gk. 

A 

lu 

1 

• 

CJ 

lO 

t g 

X 

|cj 

X 

h» 

-■« 

h'  UJ 

X 

u. 

1 

J_- 

: ir 

C?  --  X 

11. 

CJ 

«■< 

lU 

t 

UJ 

«a 

.J 

t' 

i 

« 

V 

;u> 

Z X. 

X 

X 

^ V 

•• 

r*» 

JC 

nT 

1*1 

.J 

CJ 

» 

X 

1 

<M 

w 

iw 

o 

•.ff' 

I«J  0. 

» V 

CJ 

'T  -J 

•irt 

!< 

'T 

* 

» 

_? 

>■ 

* 

vr 

■ 

w 

1 

« 

«.« 

ij 

\n-i 

: • 1W  X 

X 

-J 

1-1 

”4 

UJ 

X 

CJ  cJ 

X 

X 

w 

CJ 

» 

* 

1 

CJ 

;lc  X -4 

■M 

X 

X ^ 

X 

;_i 

V 

■-g 

W' 

“J 

w 

CL 

* 

'z 

tx  -*  •— 
!q.  ^ 

•lO 

UJ  ^liv 

jCJ 

•■V 

4 

lx 

w 

— g 

u. 

1^ 

1 

CD 

lU. 

IV 

UJ 

-*  a 

X 

-J 

»« 

K 

p 

CJ 

.VI  o CJ 

tJ 

CJ 

.i^ 

' M 

A 

CJ 

^ « 

cr 

1 

►- 

a. 

sT  ^ 

m 

!<i 

Ci 

vr 

u> 

lUJ 

-0 

Oi  CJ 

<N' 

; ♦ 

CO 

w 

l>. 

J' 

• •u 

• 

X X 

X 

cv. 

;.-v 

4 

o 

X 

4 

X 

.X 

4* 

X 

1 

u r 

« 

uu 

♦ 

«S 

cr 

CJ 

Vj 

•'» 

CJ  — I'J 

1 

ig 

I 

CJ 

vr  »i^:  — 

IM 

u 

CJ 

V 

n» 

ni 

o 

gj 

X 

01 

1 

1 fN 

II 

CJ 

k 

1 

V 

»~ 

r>4 

4 

►- 

O 

J> 

o 

i K X 

( J 

>: 

o 

X 

— X 

l»V 

—4 

V 

r 

X 

.«j 

X 

, J- 

Vi 

1 

1 ’ 

• 

il; 

ct 

M 

ia. 

<x 

» 

CJ 

VJ 

CJ 

C'-; 

UJ 

rg  r-  ^ 

I—* 

4j 

J 

X o 

'X 

UJ 

■J 

•f4> 

to 

p- 

Ui 

tN 

l'^ 

X 

1 

‘ ^ 

X 

!tij 

« 

la. 

_? 

m-4 

;-J 

CJ 

A 

c-« 

w 

UJ 

iH) 

*-> 

h- 

■-4 

{►- 

's. 

«r» 

•T  -Oifg 

-u 

i-T 

-H 

•V 

Zl 

■V 

o 

iH) 

►- 

11? 

o 

■ 4- 

«/> 

z 

UJ 

a 

•— • 

X 

■ 

•»«» 

1v  V 

• r 

’ ^ 

w 

'X 

•w 

— • 

1— 

w 

•■g 

1 

o 

J 

iC. 

u. 

y 

• 

II 

«.• 

a 

CO 

t- 

(iJ 

>- 

fNJ 

>— 

v >-  *- 

o' 

»— 

t 

►- 

1 'C? 

L- 

W 

»— 

V 

►- 

h- 

H" 

>- 

►- 

»- 

' 

•_J 

! u/ 

•JJ 

-J 

CL 

■ U. 

UJ 

•-''  j 

UJ 

«✓) 

. ;* 

*t 

.»t 

'■X 

< *t 

1 * 

•a 

• 

• < 

<I  *4 

. 

< 

*• 

•< 

4— 

< 

< 

< 

<r|< 

< 

1 

t— 

«N 

►- 

►— 

*** 

»— 

.J 

<\4  ^ 

« 

r* 

» J 

• *-’ 

z *.  4. 

V 

.r. 

✓ 

X 

a.  x|u( 

rf:. 

' A 

♦*? 

a 

, a. 

X 

X 

. „ 

z 

W- 

U.  ' 

m-t 

M 

II 

X 

VI 

w 

w 

_, 

X 

w 

u. 

u 

I*  - a.j 

UL 

X 

U 1 

CJ 

u. 

CJ 

a. 

(L  IL  , w 

U. 

CL  ' 

X 

M 

la ! CL 

u 

X 

X 

cc  tel 

!ij  UI 

j 

ffi 

|(X 

a 

QC  • 

cJ 

X 

II 

U- 

(X 

4 

U 

u 

a. 

«gi 

a 

U. 

CJ. 

cc 

gt 

CJ 

CJ 

c.». 

CJ 

u 

tj 

CL 

LJ 

CL  ; 

w 

CJ  C.*! 

; Z 

1 J 

Cl' 

CJ 

X 

CJl 

CJ 

' J 

C J 

Li 

CJ  cj; 

z 

^1 

1 .A 

(J 

x' 

CJ 

•.H 

X 

'•-4 

X 

W 

Ui 

^ VI 

u. 

a 

CJ 

CJ, 

•-* 

Ui 

IX 

tC 

,u. 

su 

u. 

J. 

lA- 

g.  ' 

X 

S4-  U- 

> 

S^ 

u. 

•X. 

us 

Xj 

u. 

X 

Cl  : 

lA. 

X u. 

VI  X 

1 

1 

1 

j 

i 

1 

-g 

-gi 

1 

IgJ 

1 

»g 

1 

1 

cj: 

CJ 

i 

CJ 

CJ 

cji 

CJ 

CJ 

--4 

p» 

V 

us 

r~ 

lOi 

CP  CJj 

•N 

r^i 

CO 

cr 

w 

0 

•*7.0 

CJ  CJ 

UJ 

cjl 

CJ 

1 

US| 

|0 

Cji 

CJ 

CJ 

0 

0 

0 

CJ 

vj 

•CJ  -gi 

gg 

-g, 

r'i 

«v' 

US 

'V 

gJi 

lO 

0 0 

! j» 

u> 

*n 

1 

‘'r 

o 

us; 

n 

•-g 

— g 

-H 

^g 

-g 

^g 

gg  gg' 

gg 

gg 

—g 

gg  1 

. ^ 

»g 

gg| 

(J 

rfS  CJ 

lUJ 

cv 

j 

i 

jOl 

n»| 

1 

tgg 

gg  «N 

1 

CJ 

> 

•>g 

1 

1 

f*i 

r 

m 

o' 

p- 

'Ji 

CT 

CJ 

•X 

f\l 

rti 

r 

us 

•u 

P* 

X’ 

CT 

CJ 

rg 

n 

■J 

US 

vj' 

r- 

CO 

! 

cr 

c J 

—4 

rvi  ns 

US 

•U 

'ij 

cr 

i 

CJ 

, 4 

eg  ni^ 

-f  v\ 

r- 

■■J 

' 'O 

m 

'O 

i -O 

0 

'1 

-T 

'7' 

T* 

, 7 

7 

(T* 

7 

, T 

■> 

■ 0 

0 

0 

0 

0 

|0 

0 

0 

-4 

1 

«-4  g-> 

1 

gj 

—4 

* gH 

.g 

— 1 

rv 

■fV  '^J  fv 

N <N 

• or 

O 

t J 

o 

o 

ry 

< J 

•_) 

'J 

O 

0.0 

o 

b 

'J 

f'C 

CJ 

.4' 

...« 

m4 

.-4 

-g 

-4 

— g 

p-g 

l-g 

—444 

—< 

gg 

gg 

' gg 

r-S 

•<g 

-4  —4 

gg  gV 

i'-' 

! X 

_i 

1 

CJ 

tJ.CJ 

1 

o 

’~i 

1 VJ 

1 

•J 

CJ 

i 

Cj 

CJ 

r" 

CJ 

' J 

o 

0^ 

i_l 

CJ 

<J' 

1 

CJ 

1 

■"1 

CJ 

1 

CJ 

'-’i 

1 

CJ 

\ 

r 

CJ  CJI 

i 

CJ 

Cj 

'cJ 

1 

CJ 

CJ 

CJ 

CJ 

1 

CJ  CJ 

ow 

] 

i 


226 


..-J 


hk 


fCSTF.  £ LtVEL  il  AJCCH  CAT;  TSCS?  12/^9/12 


O O O O' 

CJ  o o o 

O O C5  O 

vj  U o o 

— • eg  hT 

O O Q O 

<J  o o o 
o o o, 


O O O' 

o o o 
o 'j  a 
o o o 

<r.  <3 
Q Q O 

o o o, 
O Q o' 
Oi 
‘•'^1 


o o o o 
o o o!  o 

o o OI  cj 

o O 0‘ 

rrt  O Oj  -t 
O O -H- 
O O OiO 

o o o'  o 


o o o o « 
o ol  o o < 
o o o o < 
0 0,00* 
'VJ  l/\  ' 


>'  o o oi 
t,  o o o 
I o o 
I o o o 
to  <>. 


I 


> 0^0  o 

I O O 


hi 


fV  A.  I 


^ >-! 

-:sl 

r>  — • 

xt 
^ w 

< c/ 


« -»( 
eg.  o 

.•d 

I-  «5 

2: 


I i«l  o 
o o 


>1  ^ ^ ^ 


^ ^ > o 

O -3  o •■  ( 

if\  •!  O O 

-'I  o o • 
w.  n » < 

••  •»  t 
O *4-  • 


w;'— 

•i  C)  i. 
— .‘o  e 
O'irt  ct 

U>.  ■ ■■ 


<1  o 

ug!  X 
««  A 
— o ai  •■ 


<^a. 

“ X Z 


irt  Ct  0(  X z 

•H  yg  y»  *—  • 


3 or 
o;  uj  Z 
u'  a<  04 
Oj  «.  X 
J>.oi  — 
v\ ^ CJ 


z ' o 
o o 

X,  y\  X 
X!  X 

o.  — U 
O,  <4  u 


ir-*- 
r>‘*N  o 
xjo 

X'  o 

• w 

O;-^  O 


oi  o o 
o 


o|  o 


o o o|  o o tj  a o O’  o o o!  o o tj  o o I.J  o 

O O O O C5  O O O O O O O o O O O o O o 

o o o'  O O O U O O O <-■*  O o O <-»  'J  o o o o 

tJ  O O O O O O O O 4 i o o «_>  o o o o o tj 

o ^ eg  ^ lo  cr  '.*•  O w r»j  m g5  e,?  ^ 

fMiMeyegegiviNogr',  frj 

o o o o <2  oi  o o o;  «•->  o o o o t3  o o o o o 
. O O O O O O O O O O U O O o!  O O o u o 


• 


fM  iW 
O 3' 
•3  Oi 
i-J  oj 


r n u-I  a CJ- 

4.  o . 


u > u 

ll{  u 


K 4’ 
u 

^ o 


- 

W O I 
*/> 

3- 

4i  >• 


o:o  o 
o o o 
<->0  0 
o o o 

C.5  -< 
gj-.  .g*  4- 
O O Ci 
0,0  o 


o o o 

o o o 

O cP  O 

o O \} 


-4  • 

Si 


, •^  K ►"«  w 
— ( « to  i.> 


o!  o o 
O'  o o 

O'  o o 
O'  o o 
-o;  05 

sTi  <T  -r 
u.  o o 
o'  o o 


o|  O o u 

O t.J  O O 

cp  o o o 
o o o o 
£7  ■ o .H  eg 
•r  ’ lo  40  40 

OlO  o o 
o;o  o o 


■*);  X u. 

«»'l  >»  » 


H e>  4 

?ll  • 

"5z; 

► iv  “«•  « 


II  :::d 


w ^ ^ M<  I 


[ ->  1 

. -1  * 


•o  r-l  ru  <j- 

O -S*.  O O 

O '•>(  o o 

O «-*  o 


■■J 

_i  ,.4  -y  ^ f.)  -K!  ‘.I  rv.-  rj  e;  .“v..  e. 

oi  o o c>  f:»  o 13'  o o o o o '.J  o <:j  '.j  o o ci 

o»  O O 4_/  O O O O O O O O O o O ,»  ij 

! ! I ! i ■ i i 


4 


. «.  ♦ 
' W4  V 

d 


f ■ 

«n  -4  < 


■ p-t  «*g  I 'f  -T  o 

• *.,4  o ( o o ' • 

w-> 

■ \n  1 o:o 

’ lo  » -*  sf; :?  to  *s,  M 

• a;  oi  — o ^5  — • 

; 4^^0  X tjVJ  o u. 

Ih  » «•*  N I H M M,—  ' 

4 fn  •if  »!•  4^'  gi  • 

~J  tig 


3. 


s*  >•  H 
' X o H 
II , \A  n n 


;:i|rr:3grq 


I U"!  4J  -- 
■i  f.f  -V.. 


rr,  .r  ux  r 
rj  '•‘i  e;  • 


w 
•-•i 


gt  14}  r-j  Cl?  U 

m -w,  ff 


X 

ro^-4 

w tb  M 


— eg  rn 
-r 


A4  #»4  ‘-•1  ■•1  m w,  ffv,  m rn 

O o r>  cj  o o o o fo  c7  o o o a 6 

O O O tJ  o ^ O O «..}£>  O O 


vT  UN  gj  e»  ag  t/ij 

. . -f  «r  nT  4-  -i-  »t| 
fli  O o o o o oj 

lyj  o O U w o vj| 


227 


C-'.6k;.*4'4  a 


iiiiiiiiisiiiiiiigiiii 


SSSSiS3S;SSSiSSSSSSS32SSStSjaSgS5gjS„;,ojsj 

piiiiiliii5i5is3i433S5sss==23ai^§iai2 


ol  O <->  t3  O C 

o o o o < 

o,  o o o c»  < 

O '-J  <J  ^ ' 

r-  CD  u'  o ^ I 

03  CD  xj  tr  c*  < 

<.J  O «->  C3  O « 

o CJ  O rj  O < 


» o o o c» 

* o o!  CP  o o 

> o o|  cj  a o 

> «j  o,  o tp  « 

- u^  >0  »*■  00 

' o*  O'  ' 

j o o;  o o <J 
? o cj;  o o o 


J 

■".3  d 

04  N I UJ 


oi  u ♦ 

«v  m.  r“  • 

-t.  I -•  ic 
a.  <M  w s:>  w 
n «•  i^<*  •» 

<-4  ♦ M <S 
I-  ^ VI  # 
tt  — * 

i cj:  ►-  <-* 
a.  • Cl.  u< 

CP  ♦ ^1^  ^ 

• — -J  •✓)  *'«» 

<j  u.  •}♦♦-' 
••4  (N  u->  ct  <.d‘  tf 

CD  Gflu.  C7 

a <x  ^ <•  <1  Qt  vrt  > 

M «l  i I "I 

.«<  (nI  •»•  X — •»  ^ ■ 

♦-  ►-to.  <i  a.  Jt  ►-  ' 

■«  tt.  <✓!  •“  vy  ui 


, Jt  VJltX  r- 

> I fnl  o u ' 

j c\j  I oO  vj  < 

. X.  LJ  ♦ V)  ' 
; JL  ►-»U^  ■*  • 

* — 1 U.  04  : 


I JJ  ¥ U 
; Ml  W KJ 

» • QC  • • 

: ^ z 

, •yt  X.  ^ 


04  rj  ''j  og  t 

« ^ N O 

i '4  04  og  aj  UJ 

tv  * UJ  ♦ 1 1 a. 

a:  «■  oc  « >• 

t ^ I CM  OJ 

04  a,  04  ^ UJ 

« ct  • a oc]  * 

♦ • ♦ t » »-i 


1 oc  ►-  • 

I • Q. 

04 


► cj 

VO  0»  UJj 

• ^ -•  *>4 


a*  zsKococ'rtct  •■ 

voio  — ti 

,,1^-  ^11  H V»  W!  VI  H PI  » 
rsl  .^^04«^M‘N’'-<. 

a'  v>  '•»  “•  W4  Qt-  w tx.  *-1 ' 


I •«  f'  t-t  Jt  l*^ 

b::;;!'"-  r n 

J — o-'i— * — -‘-* 

i ^ If-*  •w’Jog^'OO^ 

Iw  - 

iuj***«^**1* 

la'  ZSIiUJCL  uJiuuLiai<iii 
ua.L.aJa.u.cci*rscttot^: 


.-•  ui 

♦ Z ^ O rj 

u!  ^ (j  J Ui  J 

« □ UJ  3 23 

* Z H * Z H 

fsi  ad  z - uJ 


rxjfrj^ir.  Jp^cDtrjo^^J^^■>rw^'U^•ody'0' 

Mr-O-HX-rOTicO'WCgCDCDcdOD^I 

oaoo^oooaoooooaooauo* 


12/49/12 


i = r,NM'  ~ " ci^scocc 

oisacccc 

C151CCC0 


Ol  tJ  cj  4 
O O t 
O O « 
o cj  < 


j C7  O 

J 

o 

o 

o 

u o 

o! 

u 

o 

o u 

o 

1 1 
cjI  o o cj{  o 

o 

cJo  o 

o o 

o 

Jo 

CJ 

Jo 

o 

Jo 

<J 

ojo 

o 

J 

CJ 

oJ, 

^ o o 

u 

o 

o 

O CJ 

o 

o 

o 

o o 

CJ 

o'  o o o o 

o 

0.0  o 

ol  o 

o 

o o 

o 

ol  o 

f J 

o o 

o 

CJ  o 

o 

O' 

o 

O ol  I 

il  O o 

oj 

Q 

O 

o 

'o  o o 

o 

o 

CJ>' C3 

a 

C>  0 0 0,0 

CJ 

cj|cj  CJ 

o*  o 

O O 3 CJ 

o.  o 

o 

o’  o 

o 

c>,  o 

o 

o; 

o 

CJ  o 

,!  o CJ 

cj' 

O 

u 

u 

o o 

o 

lO 

o 

0^0 

o 

O’  o o tx  o 

o 

OlO  o 

CJ  o 

CJ 

OO 

CJ 

o,  CJ 

CJ 

o c> 

r»v  r»> 

«_> 
4 S 

o o 

«J 

c» 

o 

l/\ 

CJ  CJ, 

cJ  CJ  ( j o] 

rj:  O ('J  ol 


O O CM 

O O o' 


(0  'O  (X;  (D  O Ol 

CO  * CC  O IT*  O-i 

^ c"  cr. 

O'  O'  O' 

^ ^ ^ 

^ ^ ^ 

t-i  md  ^ 

J 

o o u 

o o oj 

' 

CJ  O CJ 

O CJ  o 

O CJ  o 

CJ  CJ  CJ 

u o a 

o o o 

O (.}  CJ 

O o CJ 

CJ  CJ  <> 

O O 4J 

o CJ  CJ 

-> 

3 

a 

-J 

QC 

a^ 

X 

# 

M fp 

X 

oc 

->  -p 



- c 

ac 

aat  fA  ax 

a 

-S  .N  - 

fa 

— — 

N — 

pU 

PJ  O J 

p 

ct 

G 

a 

O’  a^  ► C 

X 

LU 

»- 

«iS 

rsj 

"^a 

• M - 

a 

c 

• 

a 

'A  ^ 

CJ 

^ P'4  a 

A 

C' 

W w 

CJ 

r-  A 

CO 

-S 

w * M 

1 

X X 

u 

1 f- 

UJ  ^ “d 

a. 

4 

« 

uy 

»-  n *1 

-J  -V 

* 

p«  • »> 

aC. 

fM 

t 

• CJ 

u. 

(X  m — * 

o 

aai 

JP, 

M 

CJ  Ul 

dC. 

■>4  «i4  X 

a*  aa. 

Mt 

U> 

11 1 

J- 

.jC 

M 

« 

A 

O fs  X 

M -J 

P 

aC 

pp* 

1 n 

< 

-•  < 

* # 

X 

>a 

h- 

•M  o 

a.%  ► CJ 

aU 

Ul 

M ec 

«'V  ►- 

X 

>1,  ai^ 

♦ 

o QC 

— • 

W 

I 

• oc 

-4  f\ 

m — 

-J 

p-m  a. 

Jt  * 

UJ 

1 

l>« 

1 

Ua  w 

• J 

A j«  « 

C»  *•  a- 

A 

1 

•c 

U.  Cb 

• 

* 

— c 

ttJ  aa<  r 

I'a 

VJ  o aM 

•** 

a-a 

a.a 

14J  «>*  U. 

• ia«  wa 

a.  ac 

J—  OJ 

* r * * 

H-  w aC 

•■a 

P*  UJ  1 

^ A»  O. 

X 

• ->  r-1 

- « 

(j.  CJ  CJ 

CJ  III. 

X 

X 

- X 

X 

~ JC 

X CJ 

«s 

rf  . <N  in 

^4  w 

iC  cr: 

• u.  u 

0. 

'V 

'x  o 

ft  ■—  » 

sa  «/*  'J 

C5J  -J  « 

— <s 

CJ  — 

«i  cjiaRcc  »U4nx 

- u 

^ (< 

p-  w ir^ 

< u 

^ X 

A IM  Ji  u 

(N  a 

• «- 

X 

• 

J.  ■ 

U.  H U 

U H M 

— • I 

X - 

U. 

V 1- 

A U • 

^ c/ 

a a 

O M Rf  n R 

' 0 u • 

•I  ^ 

a-a  -y  • 

• -UP* 

Ul  < 

: ail 

\A  a*  -• 

a*|.  aa« 

— * 

^a  • 

^ fM  aH 

IN  ► *" 

■ J« 

fC  -4 

rs»  I—  Pa 

Ui  «>4  vH 

IN  UJ 

|->  ->  41 

UJ  J 

. . • 

• X a 

UJ  O I/* 

^ a- 

;r  <t  • 

(1  «i  * 

* * .. 

ij  - - 

- D 

»■  3 z 

O o J 

o z — 

S < 

1 Ul 

Z>  i 

1^  <*c 

^ 3^  C 

' 4n 

.X  z >- 

UJ  'U  u 

iO  a- 

Z — M cy  O c 

Z Q. 

' I •• 

!<•  w 

2*  w apa-  •.  a-a  .a« 

•aa  >aa  U. 

• • a 

• UJ  ^ 

— n -'fl  aC  CO  03 

..J  p*  X 

,<r>r'  "r 

t.J  X X 

X J,  X 

XXX 

X 

1 X X ^ 

-4  1-  - 

•>  »-  _ 

p-  -•  J 

1 

a.  u.  a 

•W  tc  iC 

ICC  X 

-1  j:  •-*  w w w 

aaP  Ma  Ca 

X -pp  a 

a, 

.c  <t  - 

(i:  ^ -J 

•c  ^ . 

1 .J  CJ  CJ  ~J  -J  c. 

U CJ  Cl 

X 1C  u. 

X ct  a 

u X LJ  a u t. 

a X 

CJ  CJ 

)X  CJ  4' 

lli.  P-* 

V/  Cl  «4 

•**.  '<1  < 

*-»  «4.  ^ 

«(  O X 

A -A  CJ 

X CJ  X 

aM  txa  ». 

-p  X 

CJ  *-•  u 

a 

<n 

'U 

o c 

CJ 

•T 

tn  - 

c 

«■ 

1 

.;f  u 1 1/ 

O 4v 

^ r»  « 

l/»  CJ  a- 

•M  <»>  A 

tn  o r- 

'J3 

CJ  -4  f> 

m aj 

'p  -v  r- 

'U  CT  Ca 

! ^ 'd 

■..t  «4’  1 

'T  -f  nT 

I IP  in  'ii 

i tr»  a' 

i 'n  c-»  ir 

•n  O ij 

1 ^ -o  ^ ij  c -r 

4 ^ .O 

h-i  P-a  P- 

a r-PHPap-SaP-P-PC 

a a~4  md  1— 

4 -4  - 

c 

J CJ  CJ  Cl 

1 

j 4J  o C- 

f..j  o U'  CJ  \_^  Cv 
1 ! 

i'j  CJ  CJ 
1 

|C»  o ^ 

o os. 

CJ  CJ  c 

i »j  CJ  c-  »j  c»  4, 

i I 

f O CJ 

j 

'-»  CJ  c 

J CJ  c 

! 

oos^oo^ 

•l  --  ► 1 •-•  <. 


I ^ M 


> u.  Ct.  ^ I 

• ^ «J  u 

« tL  u < 


-*  fs*  r { ,»•  1*^  •<)( 
•■o  TJ  ff>  6Ci  -r; 


ia 


232 


> o ojcj  o 0.0  < 

I O 0:0  O 0,0  « 

I O 0*0  o o o < 

► O 0*0  O U O I 

k 'O  r-.<o  (T*  t 

► o o o o « 

I <Si  (M'r\/  r\j  « 

> O OlO  VJ  0|0  < 


» u o;o  o ulo  o o u^o  o oio  o o o o < 

» o o o o o?o  o o o o 0:0  o 0,0  o o o o ' 

» O O O O O O O — :0  O O'O  €_»  O O O O CJ  O c 

t o 0.0  O ojo  O O O o OiO  O U O O O o o : 

» rN4  m .«•  ^-.■cD  ^ oioj  -o  c 

I fvi 

( rsi  rg  IS)  <^iiA)  /\)»Hji(Njrs,)sipg<s#fv).r'j^sjc' 

» o 0,0  o Olo  o olo  o olo  o o;o  o oo  a ( 


k O 0*0  o 

) (3  a!o  u 

> O 0 :0  o 

> O Olo  o 

• O'  !o  ^ 

• u> 

I i\j  rg  ,fv  rg 

) o o o o 


o u o o 

O’O  o o 

O |0  o o 

0,0  o o 

<N  ^ in 
m gs  w>  tfv 
t'.*  rg  •g 
o u o o 


o Oi-^  o < 
A4  ^ rg  «S|  * 


. o uj|  ^ cc 
; <M  *3;.^  X , 
. 2!  «-  • 
) c — |iu  « 


» I o «. 

|rg  •t  • «M  • 

I * • o!  * o ^ 

> H {.^  n I 

> •J-  M M — H -s  i* 

I*  UJ  •i  Vg  ->  ">  » it  J 

f’  r>  <1 

2 !/>  lA  «/k  “>  * 

5 ^ ^ • 

^ r-  r «r  O g - * 

^ u.  — ^ » 

J u t.)  U o u • 

;^Ov»wu>r-4_»o^ 


I 

la  <ri 

|0  -I  ..k 

• o -^! 

O - « I 


' I • z o - 

: as[o  — -4  ♦ , 

. Kj  lU  )\,  2* 

H 'C 

i -ijii.  a o " . 

y ^ tg)w  . 


r-l  50  o ^4  rg.m  ^ MA  g)  r-  (JO  </>  o »-«|rg  fA gi  jr-  a;  s^jo  -•  n -r 

.•O}^  r T ^ 7-  O'  <r  O o O 0 0-50  ->  o oj-*  .g  ^4  -4  ^ 

-4  '■*  ^4  ,-t\  ^ ^4  -g  -4  ^4  -4 >g  fM  fg  rj  <\|  rg  r^j  rg  'sj  rg  r,;rg  rg  rg  rj 

0,0  O O O 0,0  o o'o  o o|o  tg  oiu  O V./I0  o jo  CJ  ofo  0000 

I ! I I I I i i I 


r*  eg  7 o'  rg  i«v  «r 

— >-1  fg|  g r - ^gjfg 

fs  .N  rg  rj  rg  pg  rj 

w (O  o 0:0  o o o 


g'!  g )'■  cwj  7 o 
rvi'S)  ••;  r .i-vj 
rj-  "g  i\> 

olo  o 'j  o wi 


ri-.J  t 


?Jtl..LL.;)»h2Jt>in 5 h C c c 0_ 


j o Ol  O < 
J O U C>  *: 
:p  o o c 

L)  C3  KJ  i-J  i. 

■^ascro- 

lA  O ^ 
M fsj 
D O O ■->  t 


i t I ! t ; • ; I 1 

»uoo^j0'oac5aoocjocjooooo<jfji,^oc5e>c>or3<jw-v^».ww 
> U 0.0  O O O O O O O O O O O O O O O O O f.'  O O O O O O o O O O O O f.) 

» O O O «.J  O O O O O O O O O O O Cj  o o o o o o O O O O O O O O O O O O 


» O o'o  «.J  O O O O O O O O O o’  O Cj  o o o o 6 o c> 
> o o o o c;'o  u o o o o o o o o o o o c.  ' y o 


J o o u o o 
:j  o o o o f.) 


o o O o o o o o o o o c> 

'/•rf>'0r-T7‘O^rvfr  'T^’O'^cr'O  — AJ'A.j 

■O-C-OO-O.  .t;  •/jcoa)'"  'oooco^C“7'<?'C‘CrC'^-^ 

Aj  ri«  r«j  r>j  Aj  Osi  Arf’  r<j.  rv  <\,  < Aj  rj  <■-<  'v  rg  • V A|  fv  rg  rv  r-.j 

o o|  O O Oj  O O O,  O o O O O o V Oi  O O O O J O U O l>  O O O O O Ol  O t J 


O O O rj  o O 

o o o o o o 

O O O O o o 

o o o o o o 

07  <r  O ^ '•J  A* 

C^  r/>  o o o o 

•'j  fg  n m n 

o o o O,  o 


o:o  o o| 
o o o c> 
O Si  O O 
O O 'J  u 
lA  »0  ^1 

o o o o 
m;  rn  m fn 
o o o a 


< O H I t< 

I U/i'  iJ  -> ,«  « 

I o W • > ; 

; Z a Vi  ol  ♦ . 

. II  ✓.  -r' « 

■ ^,'  > w ' . 

I w u-  u,  *-  I 
' W'  O *-*  U,  A I 


r--  -r  ^ w 

A »si|  u UJ  r- 

— A ^ O 

• *1  ^ 

• O S O T o 


( ^ oii  Uf  O r'^  4.  • * 

; z •;  3 < •»*.  i«  o ! • 

• n’z  X r>  I 

I Ku  ^>l  ^ o *i‘  ^ o : 

> ^ J.'  -i  N Ai  < 


• 1 o o o ^ ^ 

• -»  JU  O O • IM 

’ 4 ^ » w ^ o 

i a • ^ <^4  a 

» ^ ^ j»  a. 

> > o • z z o z 

» •-<  g.'  o — o -•• 

• oW  ••  7 w/  oi  »r>  uj 

• i«»  K 

,»  ui  o -J 

• -y  a.  u.  at'  a u Cl' 


' <V  >^,  rg 

• • • • IJ 

' fJ, '’g  i 
I Hi  » ^ 
c>  x!u 

1 o fv  r V 

* A T A.  o 


fl  •!  .J  IN 

o g.  g . I 

K IX  U ni 

o 1..; 


< ‘i-  •■* 

4.  %.'  4.  -g.  : 
tx  <c>  a u.  ' 
O X O > 

U.  <X,  P>  kL 


• II  ’ *-•  s- 

• r T ►- 


a'  tf> 

► -•  o ^ 
;a>  • X x| 

• j-*H| 

tL*  H H>  A 
a'  <1/  •*  *sJ 
-4  X 4.  uJ 

I ut  IX  U< 

► i U o Zl 

. \JitA.  U, 


" 


J IN  f»>  *r  lA  -o  r-,  CO  tP  pg  PI  'p  «’  xil  cj  '/**  o pJ  »«*  »r  K4  %t7  A-  ay  v*  o A#  -o  rH 

J fA  f A fnl  PI  p".  x-  .t  4’  sf I ^ sf  -f  r .PJ  in  g>  w''.  A oi  .A  -A  gs  3 /)  o a -.j  -rf 

i w rg  rJ  “g  i"  < f-v  c-*  fv  rg  •''J  •'»  •■•»  «*j  ^'r  *g  rg  •><  -'v  ^g  »••*  n r^i  r-^,  rg  pv  ng  fv  p » pg 

i(  O O O;  O O Ol  O O oi  O O uj  O O tit  O o 1-4  O !.»  tJ  •./  o O O O u O O O O lx  o o t;> 


fn  , •T  m 

f-  I p- 
pg  -g  pg 
*-»  o o 


I o a o 0,0  o o'o  Cl  oio  o ojo  o o'o  < 
» O o O O O O o jO  O O o o o C3  O O ,o  < 

» o 'o  o o o o o:o  o o •*,  o o o o o o * 

»0i0  00000000».'00  0 000( 

► r* !o  ’T'  o iNj  fOr**  in  •/>  p-  <3  --  r.j 

I ^1  ^ fsj  rsj  rsj  ' iM  (Si  rvi  <vj  rv;  r ; r>^  /n  o i 

k PHir’i  fn  m’<n  m m> 

, Ulo  O 0,0  o OjO  o 0.0  o o|o  o OjO  » 


>'o  O O o o o |o  o OlO  o 
joooooo'ooo'oo 

> o o o o o o;o  o o'o  o 

) O O O O O o o O OjO  o 

' c^  o ^ ;r  1 rn  ha  ^ 

> rr  r-.  n m •.‘I*  ^ 1^  .r  st 

' r*  r»  m <n  min  n nin  n 

l[o  0 0.0  0 0,0  OO  OO 


» *1^  • ■ 
a.  X 

•Hi  % ^ 


'm 

• 

•r; 

o -i 

o O 

•-• 

(- 

1 

1 

UJ' 

z 

z 

p- 

in 

<x 

1 

loj 

1 

• 

lUi 

*-• 

•q, 

I*"* 

xilUi 

UJ 

XT 

1 

1 

Ll' 

X; 

o 

o 

; ) 

•-• 

>-• !»“ 

z 

n» 

lA 

0.0 

«4 

> 

..1,0 

z 

o‘ 

* 

O > 

X 

U. 

LU 

0-1 

o 

X 

«v' 

u « 

o o 

1/1 

w 

IS' 

w 

P' 

xl 

« 

o 

‘o 

A' 

I 

X 

r» 

X 

X 

X 

<.z 

« 

X., 

1 

«>« 

• 

»Si 

t ».«/> 

o 

n 

XI- 

X 

t 

IT* 

ijj 

‘->;o 

•.r 

•.X 

lA' 

tn 

1 

• 

x' 

ui 

x'y 

o 

O 

^'O  u>  rw.oi 

Hi 

r«!  ji 

n 1 

v 

• 

*-4,.V 

• ,o 

• 

O 

«-<  1 

"^1 

X 

-»‘x 

S 

x!a 

X 

rt: 

Uil  <1 

Hi 

1 

r » 

's.^O 

• 

i's. 

-J  O .b- 

o 

P-j 

XJi— 1 

<N 

•s' 

•-< 

s. 

s. 

'c 

<!>% 

o 

*N( 

j 

w i 

W.  ■«' 

* 

H- 

> 

j 

I 

1- 

rj 

►-  ►- 

Z 

X 

a 

t- 

Ob- 

h- 

<1  <r 

•n 

V. 

< < 

•-( 

> 

> 

•a 

*\^1 

<-i« 

*t|»- 

4i 

X-l 

Ji. 

JL  , 

o. 

J. 

X X 

4. 

mix 

4. 

z. 

ix'  X 

O. 

X 

X 

X 

XX 

X 

X 

X 

U. 

u/ 

X ••'• 

u 

oUj 

o 

U 

n 

c 

U;0 

p‘. 

n 

o 

niiU 

_>  O o 

U O’ 

«xUl 

u. 

X 

<i 

ii.|(4 

• 

V 

u. 

lu. 

a. 

(A.  {U. 

H.  ' 

I 1,^  v.  {U*  « ■ 
I ui  U,j<*  i 
’ I*  U I ^ X • 
, X 1/1 

» o m u <s 

I rs.  a ^ 

• * *|UL(  %,  * 

; X kI  o < 
, m w'jo  *7  I 
. >.  i.  I 


V,fN  Jb 

h ^ o -»  o 

_j;in  o **> 
**:o  * X 

1^  /-.  •.  iM 

X I » o x'  • 

H-IX  'M  VIH 
iU''M  •K  •N  U-l 


WT  O V-  V-  ^ C-ll-  ^-  »-!K 

U ••  X X *.  Of'#.  a.  U. 

XHo.  Act^iu.  ixa.ao 

•A  CJ  O u UJ,U  u u kj  i£ 

o a.  u.  vx  cijU.  ‘i>  ii.'U.  ui 

! .^1  1 
o'o  o O O 0|0 
CO  p*  U IM  OJ  O O 
O O — * lr-(  .-1  rfkjo 


ccai a E ‘ OilTJAt  -C .« Ct  uCP T_I,  i FliJ C cc:  I C C 


I I 

o o o o,«j  o 
t3  ■_?  O O'  o o 

-j  o o o 

<j  u o O (J 
.NJ  O 

CJ  o o <1  W 

-"J  o o o u 
'J  o o o •-> 
o 

c »- 

“»  -H  •- 

o o o 

H-y  -> 
— *—  <->  M 

W • 

st\  ^ 

9 

^ -*i  tr> 
n o|  w 
“»  o 
- O,  n 

-*  H •* 

i/<  • 

rv  o o 
— > tA  irt  O 

rs(  — ' — XI 


> o o 

> o'o 

> o o 

> O «_J 

‘ O 


I 


I 


o o o 
o cj  o 
o c.*'  «_> 
o o 

rvj  m 


u o 

O O’ 
Q <■> 
U O 


Jc 


I 


u o 

f*-  GO 

o o 

o o o o :j  Q o o 

00“ 


ooo*uoo'<joo^ooijooooo 

00000  O’ 13  o 00000  cauocj 

o o o o o <J  o o o ^ O’  f.>  0 o rj  o 

O o o o o o o o o o o o o < J o o 

o»-rsjpn  ^a\  e 

•-4  ^ r-J  |N|  /Sr  M IN  fc  <*v 

o.  O o o o o O o o o;  o o o,  o J O o O 


I O —I 

. x m 

I 

I U »-', 


l/k  u^' 
rj  rs4 


o ^ — 

XI  o 

w 'J^  X. 

r'g  ry>  ^ 

^ -4  ^ 


I’ 


• *1  1 w 


I . . 


“)  “J 
I-J  o 

« • •, 

144  « «i  <V 

V4<  <><  «N'  W 

w — ’O 
u O Ci  • 
O -J  -» 
Ui  ^ ^4  O 

a.  X 

n > 

^ > tri  <N 
•V  «n;  -> 

a 2 -‘o 

uj  0 *^;  “ 

3j  a.  -• 

M.  X. 

w O *w  r>4 
. w 

rs( 


-*  o 

. ^ X 
. 4|  •— 


-r  -*  Q #'»  • w I '-• 

u.|  r»  XI  n 

♦•  IV  ^ «»j'  it  *4 

— 114  « t • W4 

,j  o u -•;  <1  o 

»-  • O 03  • 

> -1  u.  • — 

. — • o in;  r o •- 


0 

0 6 

0 

0 0 

oi<->  0 0 

0 0 o-o  0 0 

0 

0 

u 

0 

0 

0 

u. 

a 

04 

u 

z 

ft 

IN 

t 

0 

IN 

••4 

0 

ft 

z 

z 

CO 

IN 

> 

a 

ft 

>4 

ft 

a 

»- 

» 

Ul 

aa 

2 

fNJ 

£ 

t 

f- 

UJ 

■■n  M 

ft 

0 

ft 

T 

> 

aa 

t 

> 

a 

a 

x4 

ft 

* 

at 

a 

0 0 IN 

•t 

u 

ft 

kr 

ft 

in 

a. 

‘N 

• 

w» 

• 

IN 

aa 

0 IN 

«N 

a 

Jt 

«/ 

(Q 

►- 

aa 

it 

• 

oiz 

ft 

ft 

X 

•-H 

clIo 

0 

t 

<N 

t 

X 

a 

ft 

r-t 

0 0 

aa 

c 

0 

• 

ijy  z 

O 

IN 

ft 

•*4 

a 

(-4 

«. 

a 

X 

Ui 

<X) 

ft 

aa 

oe 

& 

ft 

ft 

n 

a 

aa 

• 

<V*  ft 

•Jj 

■n 

rx 

aa 

a 

IN  ui  ^ 

* 

ftl 

ft 

z 

Z 

0 

aa 

— • 

z 

aa 

ft 

iTl 

u. 

t 

a 

z 

”1 

> 

3 

aa 

t 

•a 

z 

>• 

IV 

a 

L. 

t 

aa 

w 

—• 

llX  < 

♦ 

* 

f 

-a 

IN 

4£ 

tx 

*• 

■«r 

ft 

IX 

Z 

LJ 

U. 

*• 

0 

a. 

ftl 

t 

H Mi 

U. 

I 

• 

ft 

z 

ft 

in 

aa 

ft 

r* 

It 

» 

■>r 

(N 

1% 

V* 

IN 

ft 

t. 

>■ 

a 

aa 

a 

aa 

m 

aa 

Z 

if 

14. 

«4 

«_j 

A 

M 

a 

X 

u 

«x 

a* 

It! 

IX 

f^y  IN 

a 

w 

CL 

X 

p- 

in 

» 

I4X  ft 

a 

w 

a 

• N 

0 

■N 

-4 

z 

<-» 

•n 

•■f 

It 

•4  IX 

'a 

«a» 

•— 

x» 

4. 

-1 

tt 

u 

aa 

Z 

Ni 

rM 

t. 

<N 

04 

m 

a 

aa 

IV 

It 

aa 

r» 

tJ 

• 

It 

10 

ft 

• N IN 

a 

Z 

• 

IN 

ft 

** 

t' 

UL 

•“4 

pa 

VJ 

<x 

« 

It 

W 

z 

t 

It 

•aa 

*>  a 

va 

* 

u 

♦ 

u 

•X 

X 

PM 

a- 

■44 

X 

•> 

iu 

X 

a4 

M 

Up 

4 

* 

• 

it 

< 

•s. 

at 

u 

ct 

•*v 

Z 

t- 

X 

4- 

-* 

ix 

or 

aa 

v> 

a 

•s. 

a. 

<x 

1 **• 

It 

X 

• 

w 

z 

* 

u 

•»w 

aa 

ft 

i— 

ft 

♦1 

z 

1*1 

•• 

u. 

pt 

X 

•N 

u. 

0 

1 -s 

•V 

»- 

►- 

•N 

it 

z 

X 

X 

- 

VJ 

> 

0 

Cl. 

Z 

Uj 

“>  tXi  — ; 


o'  O o '3 
o o o cj 
o o o o 

O O tj  '3 

<«  .♦  X n 

fn  4r>  i>i 

O O U v> 

00 


I 


i 


O O O O O o'  O O O O O 0|  C3  o o 
C3  O O O o rj  o O o O t3  o-  O O O 
0000  0000  oouoooo 

0O'-)O0ooU0t3  00‘J0‘J 
r^rr)C?‘0«-*r\;n‘,  ijx  o^»tn^o*4 

oooooooooooo’ooo 
o o o.  o o O,  O O O,  O O o o o o 


O'  <N 

o />  z . 

3 ( 

o *>  ♦ . 


•10  ( 


^ JO 

HI  -J  4) 
n 'X  in 


: 0:2 

I 0*0 

. vv  X 
-^1  i 


o wjcJ  u 


z — , z 

':i  V o 

A IX  a 
•L  <sr  a. 


^ O 4?  — <v  u 


41  o mI 


•<  z < 

-■M,  < < 


•X  XI 

o o 
o o 
o u 


o o 
o o 

V/  O 


•0^0 
*-■  — it 

Z!  Z fS 

t4  0 

2.'  •&  «t  <43 
a.ta.r»  m#  -i*4(i:"4**4 

c>  o «a  ti\  > u o a.  ».*. 

4><iXOxJ^ttvJlJ.»« 


Ik  o 
^ # u. 
* r 4J  • 

o « u z 


a'  — * 4*  ^ t ♦ 

■S  ■ 


Of  < « I ; 


H 04 


.,  -H  111  • 
J ^ I 

4 CL  13  ’■ 


It  IV 
N 

f't  ix^  it  ^ Z!  a 
u.  O u..’  u.  I a ff  ; 

H HI  H H ill  II  u 

rv  IV  ‘V  "x*  r>i  fv  in 

• L u u u u *•:  a 

It  i;;  It;  it  Lj  it|  It  cj 


- d 


0>v‘ 

. ,.  - - - »X  >’.|  '>}  x-4 

o o O C’'  o fj  o o o o '■>  o o o O 

W LX.  O O.  O O iX  W iX  N*  <x'  iX  i-*  !.>  o u 1.3 

i I I I ; 1 


•N  »» 
. fN  O 
ri  i*i  r> 

\ 


x\  r-»  eo  O rj  if  in 
.!■  r~i  »n‘  •<••  ..,  r|  •'*«  r-  H 

joooo'-joaoort 


z z ' 

ii  ^ I 

A ^ • 


u 

.-.  X-  ^ 

o o d 

iX  IX  (J 


238 


'FE»i'c  date  15C9S  12/A9/12 


o'o  o u'o 

o tJ  o U'U 

OlO  O CJ  *-> 

o o o o o 

rg  fO  iT  , "O 

aa  tA 

O'O  o o o 
OIO  W oltl 


u o’o  o o'o 

O CJ  4„’  fP  O ■ 

CJ  CJ.O  o o o 

o o «-»  o o o 

r-  fo  CT»  o ■H  fsi 
lA  IA-«A  <0  •Al'O 

O U'O  o o o 
o o|u  U Uju 


>111111'' 

O olo  a 0 0 O olo  O 0 0 O OfO  O oio  O O O U U|0  u u u o o 

O Oirj  <3  0 0 0000  OiO  O 0:0  O O'O  O O O O O O O O O O O 

o o u <j  00  o u'o  o u u u u'o  o u'u  ooooououoou 

ouuuu'uuuuuuouuuouoouiouoo'j  uuu  u 

msTiA^f'-'aiC'Oi^cgrAia'iA'O^wt^.o  — 

A f»f»  E>wA*,r»  f*.  V CD  CO  o 73  CD  CO  O 

u u'o  O U'O  u 0.0  o ujo  u 0 0 u olo  0000  o>u  U U U <J  u 

u U|U  u ulo  u u u u o u u u u o UJO  u 0:0  O OjU  o ou  o O 


lu  U 0^0  O O Cl  o ulu 
ooo'iaooo 


t a *». 

. so  Ui<>4  4j 

•s,  > u 

> <N  ^,a  — V 

I Ul  «V,UJ  <D 

« > II  M or  u 
I « (g  <M  n a 
« rg  «N  n 

. a a a CO  -* 

i ui  uj,  <&/  oc  ul 


I * 

|o 


lu  u u 

.C3  O O 

o u u 
u o u 
<sj  <n  »t- 
iT  O'  1^ 
U O u 
;U  U O 


OL  X Utii.  u 
V O Oi  V I 
<N  «✓>  Ia'  Z 
(J  .^I<  a 


Iz 

«n'-^  f£ 

U|UJ  <Ii 


<>*•  • 

-.;u 

AL  AT 


»-♦  fg.t- 
« <l  I 

{£>  €r7 
I f i< 


CU|U.  rr 
W%|lA  • 

• Vj-#-  ' 

W>VI  . 

u 

I 


o o Ojci 

000 
o u o 
A>  u u u 

,»n  ^ fwitfi 

C <7*10^ 

o o u o 

U O UjCJ 


O Oto  o 
o o u o o 
o u o o o 
u u u u o 
O'  O -g  M rA 

^ o o o o 
u ^ -g  i-g  ^ 
O UiO  u u 


' ^ • •'g  -g  r><  w u,-^  u • 


-;-g  a>  a>  —■  gg 


z z\*c 

< — 'ICW 


» »<  AU.OC  UJ  ^ I- 


(X  Vi  , 

Vt  "1  ' 


cu 


-I- 


!^- 


1^  «^4  o 

■al  • < 

? z 

«g  ^ rg  

^ iL’  H>  ui  o uj  3. 


• f*  *,AI 
^ i^g  .ftix 
*:  N Z ‘ I ‘ 


aL  • M 

A*<  11 

M M 

— -g  IN 

M H*  «NI* 

rg  (K  oc 

m u.  a |Qt  < 

u,  -a  < 

U.  4 sc 

^ w.  (X 

^ ^ 

u .* 

y 

m 

u 

u rg 

0 

u 

y 0 

0 -g 

y 

y 

y 

y y 

y g; 

«!,  01  -4irg  ^ i-jrg  i— 


..&IX  ^ ^ 
wA  Z Z 
I ® ^1 

> < 


a.  a.  ttii.  IP  u.  a u.  u.ia  O u.,u. 

- A ^ . . . -1  . 


JClCA  ■ 

Z|^  ; 


I-  •-}*  N ►- 


aia 

J 


«.  M w -|U 

«!>  >-,^0  ^ - - 

i^'r»  » 
fg'»g  ^ 
H;|ig  ' 


L—  gi  cr.-^ 
^ o;rg 

ig 


rg  U 

-I  O' 


515^CCCCI_ 

C095  C2sBFl/Rei  C10500QC 


► OK 


o o<  a o o o 
o «.>!  a o o o 
o cj  o o ol  o 
o o,  o o o o 
o «-i  ri!  t 
o ^ ^ 


u o!u  o 
o a o o 
o «J|  o o 
o cj.  u o 
^ ^ o 


o a o* 
o'o  o o 
o:o  rj  *3 
o o u o 

-^C>l  r\  f\l 


.Jc 


O O CMO  <>  0^0  o o!o  o o'o  O 0)0  O olo  O 0.0  o Olo  o 
000lo0  00uo,00  0'00  000000  0|00u00 

OOOOOOOOO'OOOOOCOOOOOOOOOOO 
oooiooooouuooooo.  OUOOUOOOOOO 
<n^yu\<f^coa*0— »rg‘^4’i/>  c^.eo^O^fy'n  ^ip^r*® 


o o u 
o|o  a 

O'O  u 

ou  o 

O']  o >-4 
" lr\ 


O 0,0  O olo  O 0,0  o olo  O OlO  O Oj 


I « 

<N  O 

# >r 

* • 

>o 

OM  <N  O 

; o 'T 


r^J  ^ -4  oi 

o ^!o  *,  OJ 

n tt  — o o' 


o 

• '»’I 


C*  sT'  J' 

O 0|  O O - 


o o>v  o 


— . CJ  < 

fn  a. 


^ crj'K 
i O Z 

11  uj  n!  i£ 

I u'  « >-1  n 

I --j  N I 

. u.  z:  Qc  u X 

- H Jfc  o^  ^ 


o 0 0,0  o o:o  O 0,0  o o o o 0.0  o w.o  o 0,0  o o;o  o oj 


'T 

':>  a 


0 0 0(000^ 


ri 


a,j  fx 
o *4-  o 


OJ-T 


t\t  fsi  ^ 
O l.|Z 
H •x,  a. 

tl:*- 

U.HU. 


■c  o 
w*  -T 


«n  <4 
»A 


o H o 
• u4  II  ' 

O »“!  IX  » 


■«»  « •H  LJ 

fn  a'  a 

o jg  ^ 


t>i  u 
u ui  a.  ' 

O 14  ^ . 


^ a . 

o 0. : 

C4  ^ 4 


CM  «NI  -T 
o<z  U 


o o o o 
o’o  o o 

0 o o o 

01  o o o 
rg’  fn  tn 
ia‘  u> 


o o u o o o: 


I 1 o)>- 

I M Uf  <4  O wl 


Vi 

J.7 

-3. 

Ui  ♦ M 
4 <0  (/) 


ool  — — -•'-•-^-1-*  — -f“««X 
■•'''oot^oot-joot^ooi.^ 


* J - 

I o cj^c 


f ^ f*>  sT 

-4  z o(  o m 

4X4.  I I I O 

. o .-  ..  I ^ M i • M 

) o^wo  ot^  ^ wooOj 


sr  r-4 
o o 
fs 

l/>  — 

O ^ 

O I 


••>.ri»A4jh-j'a>V'o/.-*rvn^.T«/>'4<!r^owJo*-  , . 

'X  rg  r'i  r>  »f>  f«^  rn  m m ^ 

^ — « O ^ •g  -4  -.4  O ^ ^ >4  W ♦-*  "4  ^ I 

OUC^OO  OLJI.4UjO  0 0|00  0 0000<.3iJ|00< 


240 


■ J ^ J 


1 


si 


■t 


FCPTPAN  IV  C lEVEl  <1  CtiSC  CATE  » i50<J<J 


o o o 0 u 

O t.>  M 

O -•*  '^4 

ri  f 3 — 4,  -H 

V f\l  ^s  <VJ 

V ^ rj  ^ ^ 


O O'  O O O; 

o o o o 

C.3  tJ’  1.3  o a. 

C3  o,  o o 

T I."*  -o  r- 


o o o'  o < 

(.:>  <.r  o'  o « 

O O 0 '3  t 

t.J  <.i  o o < 

iT  O'  ^ f 

■•V  ^ 'v'  fsj  I 

r\  '"M  (v.  'Si  < 

o o o;  Jt  < 


j'o  o O TJ  < 

> o o o.  o < 

» O O O O c 

» o o o o < 

) 03  <7'  'J  . 

.•  fM  rvj  »M  m ? 

j fs^  fS4  fs  'N  c 

> o o O'  o ( 


1 J ' I I I I J 

>oo'ouolooo'ooc»ooo!oooooc>|i.>u^ 

>cjooooc3oo<jooooo;ooulooij;o«o 

JOOOOOOOOOCJO'OOO'OO^'S^OOO'OOO 

>ooooouooooo,oooooo:oQujooo 

..r<^  -f  -T  't  -T  'T 

J^<'ilN<N<Nrf'\iMrsi<Sj«*vjrV'Nrs;«*^rg«N«N^^<N»f'4rj^J 

JOUOOOIOOOOOOOOOjUOOjOQrjoOO 


i .<e:  IN  rv  IV  <^4  4 

, n Oi  >»•  <'  x:  a.  < <r,  V 

I O,  o w -1  VJ<  V 


I TW  ^ W ^ 
I ^ ^ ^ 

:!3!: 
I Ui  IN  UJ  lA 
• HI  ►-•  IV 

. a LJ  ix  u 

■^r 


^ 

» ^ 4>N* 
H H ni  N 

^ FM 

U:  u i«^  ««;-  u 
<1  ->  n ->  -> 

»->|  u.  ^ ^ L# 


-5  « 

c#  ci  u» « 

iSlij 
= d“  = : 

iij  ry  » 


IN  N;  N IN  fV  fA  I 


r-jajO'J'-'fNi'j'TiA-Jr'Qitrlu-^fvrisri/V'Nr'Jtr'O-itvro  .-riA'Jr»a3trJ'-ii--rv 

-^,-iF^o4r«jfNPij<iNtNfV'‘jrg(N<f\(f'i'ViNrgr-/rj'Nri  Nf'Jf'l'Nfv  |rvN^r.jfNfNf>jrNA 
'«HOO*JOO<JllJOOiOO«-/  OOOj-Ji.JO'OWOiwlOvJOO  'l_3'-»Ol_3C3uiOC3t- 

l11illll!lli1 


Is0h*Q3(/>O»^rV<As}|u>’4Jl 
iNfVCVJfVrvriJtNrgiNcjoJi 

ouooo(Jjoo»_|oo< 


FCRTRif;  IV  £ LEVtL  il  Gi^FC  GATE  = 75CS9 


0.0  O o'o  U olo  O ol<J  ej  OiCJ  O olo  O olo  o olo  O olo  o olo  O O <->  O O o O o'o  O 0)0  O olo  o o o o o o o o 
C3.0  O OiO  fj  O O O o'o  o o CJ  O Okj  O O O O O'O  O 0>0  O olo  o o o o o'o  O 0,0  O 0)0  o 0,0  O ojo  O 0|0  o o 
O O O o O O O O 'J  OlO  O O U O 0|o  O O O O O O O 0,0  O OiO  O O.O  O O U O O'U  O OlO  O o O O 0,0  o o o o o 
UUOOOUUOO  o'u  O O O O 0.0  O O O o O O O 0|0  O O O O O O O 0,0  OOOOOOOOOO  0;0  O 0)0  o o 

- - - - * - - - - - ' .»s.»^floa)3>z,<t5;'0«oe,®iccy,o'o<y'0'C'j*>>a‘CT'iooo'oooooo  ' 


' -O  '0  ‘01^  ^ ^ ' 


I. -)  £ j 
• O -J  . 


rg  rg  rg 

rg  rg  eg 

rg  rg  rg 

rg  r*g  rg 

rg  rg  eg 

rg  rj  rg 

rgrgrg:rgrgrgi\pgrg 

fT  ni  ro  f 

o o o 

o u o 

u o o 

O O O 

o o o 

o o o 

o o o 

o o o 

o o o 

o O o It 

1 

•w  « 

rg  rg 

I.J  o 

■D  -D 

♦ ♦ 

rg 

M 

CL 

«»  w 

> 

rg  »g 

t 

o o 

•*>  -» 

a 

o o 

4-  <4 

♦ 

M .M. 

rg 

•-<  M 

•-• 

X 

w«  O 

«« 

•g. 

* 

rg 

o u 

o 

•> 

o:0 

UQ  O 

1 

->  1 

t 

pg 

o 

t 

g>  V 

^ o 

►- 

o 

•\ 

M U U 

rg 

rg  rg  o 

•4  r 

a 

Oi 

— 

4 0 0 

• 

• * o 

A 

> 

» 

a 

— 4 4 

m o 

» -■  M 

M A 

— 

iX 

^ • 

g' 

O 1 

M W 

rg 

m -t 

» 

^ BM 

t'j 

u>  ig  — 

V) 

ig  *H  — 

— 0.0  VI  VI 

V V(  tg 

r. 

M «>  «■« 

• 

• » »— 

o 

• X O OlO  •— 

-g  o 

-<  -- 

X o • 

u. 

o o o 

^ 0^ 

g 

i r>4'-^  -J 

I ^ 


2 I2;;:'::  = ::fcr=‘r  = -c5 


KJ.  M 
X 


^ ^ • 

•«£  ‘£■1 
U »l<- 


u.o  o u o o 


• «s  — • 


o:o  I 

'M  ' 


-tj  m in'  n m'  »n  'n  ml 
rg  fg  psi  (s*.  rsi  rg  rg  (M  rwl 

0:0  0 0|U 


O Ni  uj 

m|h  - 

,r  ^ 

/ 0;0  ^ • 
1 **»  l 

I O ks#  ^ 


^ jC  ^ rsi|U.  ^ -• 

I 

— 0.  Q.!;_ 

UJ  u.  > >,«—  III  Oi— • ►-  iTr»*- 
r-.^  H II  m 


r>  ;z  |.«  - iMjO  # It 

2 W M ««•  — *2  * 


» o oi^  ^ rg 


Ml  l>  O 
n_.  o II  j—  A 

1-)  ^ ‘g  <N  'S 


rg  fO 

h; 

o o|fg  M 
->->!*• 

rsi  (O 

-£  ^ji'g  IN 

X Jt  * • 


o • V)  ^ 
-Cin  o o J 

M;M  II  « 'rg 

" ~ 5! . 
^ . • — „ '_ 


. ^ -»-o  ^ « 


I :j;->  o"'^  rg  i 


U.  U.  “>!•-  '. 


o o u; 


vT  o'  -*  rj  <n,  >r  *•>  lu  cnf'-i 

m m o.'-o  .)  >o‘'4i  ,)  o- o Oi'*- 
r>i  r.|  M M rj  rg  rg  fg  rg.rg  rg  rg  rg 
0,0  o o;o  o 0,0  O OIO  O 0,0  o o’o  o o o o o, 
> I 1 I 1 1 


<1  M m 
.n  m ml 
rg  pg  mI 


iicr  o ».rPv  ET1  J"m  Ml 


. 'gr  gg  O 

igi  m uii 
fN  o 

I ♦ 

O O'—  — o 
ij  o >r  o 
u Olo  w o 


o 'fjij-  u. 


<M  r 
■O  'O 
rg  rvil 


T ml  > 

r-  f-  r-  r-'r-  r,  r-  tn  o - ft'  o «o  ■■«!  o 'O  C-'-T*  '7'  U-jO'  r ^ C*  CrI 

g rg-rg  rg  rg  rg  rg  'N  M (NJ  r j rg  g ^i'nj  rg  rg  rg  rg  rg  rg  rg  rg'rg  rv  rg  rg  rg  m| 

KJ  o o O O.O  o tg  O o 0:0  O O O O 0,0  O 0.0  O O; 


243 


LEVEL  El  CE<PC  D«Te  - 75C99  12/^9/12 


I o o o o 
► 00,00 
I o O’  o u 
J 'n  o 
j fsj  rsj'  rs4  rj 

' m f^ii  m fO 

I o olo  u 


) o o o o < 

> O 0*0  o < 

> o o-  o o < 

> O Ol  o u < 

) 9‘  Oi«»i  (SI  I 

* f\j  miin  ^ 
t m m rn  <*>  < 

) O 0(  O O < 


> o o o o ol  o ? 
I o o a o o;  o « 

> o ol  o o o o < 

> O o;  O O O,  o « 

> UN  eo  ^ o • 
^ mi  m fO  M 

'i  c*>  ml  m m m;  m i 
) o o o o 0|  o « 


> o Ola  o 

> O O;  O O 

> o O'  u o 
) u o u o 

) P»  00  (T>  O 
• 'T,  ^ Vf» 

1 m m m #»' 

> o 0|  u o 


O O O O O O o|o  O O O O o 

qIo  u o;a  o 0,0  o o'o  o o 
o;  o o O'  o o o o o oi  o o a 

o,  o o o'  o o o’  O O O O O o 

w •N^nn  «o  ^ CO  ^ o m cvi  m 

in  ir  »o  vn  ir»  tTil  u'\  vo  o ^ >0 

m m m m m m mi  m m m!  m m <n 

o o o o o o o|  O o oi  o o o 


:.rd7  5: 

» «M  n I »'<l  D 
» a I ^ * \z  z 
: o »:  o -J.  a.  x*  a — <c 

►-  ^1  » ►-  11)^  M ^ ^ 

) w'  KJ,  fv«  ^ m 

;uu.ouo(u.  a.uou; 

. U O o X . 

'TIw  --r  <i  »r  f*  ^ 

rJ  o o w o « 


O 'H  nj  rj  'J'  K\  no!  r- 

0(  '"3  o O;  n '3!  Q 

rj/nmmimromlm 

o o o:  o o ot  o 


- D Ki  m 
[ ^ <1,  s.  < 
. U >.;  >•  a. 
l X u 

j a L/  -9  tj 
. Up4 


-9  M 

><  Huj 

I ri-j  »- 

m m.  _j 
X X k-<  I- 
cn  O IX  U 
o **i 
a M a oc 

< ">  K cc 
^ X o 
-J  UliO  o 
om|3 

z x!  X 

•O  0‘;Q  ^- 

x o|  < — 

a oo'cr  JC 

nl 

n oj>-  «/> 

< ■^1  ^ UJ 

X Cl,  a.  ^ 
1*1 

-OI-* 

a -"fc;  r- 
ft  < 
^ (Ml  <-) 

“>  -7;  UU  O 
O <}  O 

X XI  X 
m mi  < 
^ *C  mi  VL 
vr  ui  O 
»-« (M*  ^ u 
^ (m'*-*  ct 

">  “7‘  fl  CL 
X Z C.  o 
(V  tv  ^ 
^ X X fM 
•O  vu  m '■T 

'S.  >.|  si-  N. 


, < <;  *1  -I 
. X Ai  X o 

. u.  a oc  tt 

> o o o 


,yj  u»  n I ""i 

^ i*  m cJ 

fif.l  O.  UV  -7^ 

c>  o xJ 

CJX  itrS 
X X k] 
cJ  sT  <i 
*>j  -x  >J 
w * w4 
)-f  Ui  H 
-tI  .j  n < 
X O ♦.  aJ 
ucjot  ct  'd 
Jl'-O  J 

W i O Cl. 


cwj  u*  o ^ «M  m 't;  W-*  >c  02  V ol  fsj  .*'1  4 

O O -*  r-*;  F-4  ^ C4  nj  «M  »\i 

ml  m m m.  m m m' m m m' m m m*  m r*'  m m 

l-'l  O O ol  O o O O O,  «-»  O V_2  o O <J  o 

1 i i I ' i 


1 ^ (r|  ,5 

1’:^  2 n;) 

m m m ' f 

! o oj 


O CJ  O oif^  o Clio  O O O O <J  o o o o o 

0,0  o 0,0  o o o o o o o olo  o o a o 

OtO  o « o ojo  o olo  o oio  O olo  o 
o o <■>  O O olo  o ok.>  o U O O 0(0  o 
‘^|u^  -o  O'  oi-<  <\i  {npt  lA  <30  0*  0 

I *0  »0  ‘O^sO  1^  1.3 

fnim  fA  f - m m m mUA  m rr>  m i \ mim  tn 

O O O 0,0  O OlO  o O O O O o U O O Cl 

e -‘iM  ^ -o 


< o (o: 
Xi  2 < 

mi  < luLf 
Xi  — -^|0 
Oj  ^ *0 ; 

— a -jo 
rvfo  n <n‘z: 
<t  <N»  O ^1^- 
0-^0  tU'> 
iO  j.^ 

<A  r <\: 
^.-r  u «:q 

OjX  M -Hj 

A'tOI  ^ JCrO 
«X;iN<  O ! 

ix 

xo  -j,o 
m i ^ •*  I < 
j^.^r  -M  Jt-w 
Ol  K ►-  vt  UL 
-^iu'  U W'U. 
rj  < ^ rx 

a:''4 

a 0| 

Xio  UJ  Ui  X 
/'ll  X 

r < <t 

cyiM,  ^ wiu.1 


a o 

UJ  o. 

O < UJ 

o -J  o 
*t  ac 

X UJ  i/i 
to  > 2 
O •- 


(vi  xk  u. 

cl!  -.  oc  I- 
“^loc  X a. 
o < 

ft.  iX  O 2 

ui  o UJ  O 
>1  x> 
qIo  X o 
iX  — 2, 

>, 

?-/•:>  V .tJ 

O'*^  ».j  <✓>) 
■q!Or  o UJ 
r-‘C  X I 

.i,! 

= LJ  ft  >-j 

a.  o UJ 

Uj-LO  U UJ 

o VI  IX  r- 

^iTrUJ  r4  I 


LU  U!  X 

o o U 

^ ^ ^ ^ 

O U.  w U*. 

•-•  O -*0  0 

* ►“  tx  'X  ft  UJ 

Oft  O ft  ft 

UJ  UJ  ft 

ft  Z ft  z o 

cc  rD  ft  u u 

o o 

O O,  O O K 

z z o 


rj  < ►-  Z ft  •-la*  X <H 

Zift  ''T  UJ) 

<.i:!->aO|  u;  p)  la 

XiOUJUJ  tX  Oft  V j 

o o 

X T 44  <t  ' > ' « Z* 

oijL  j wiu.1  <i'aj  u»  •- 

*^000. j 

<>j  — O O O Uf  u.'o  o — 

c.  .N  _i  j z -u  o:z  Z a. 

ct  -i<<i<ujtx;«««ao 
X X O O,  Z ft: 
ri  »N  o 0:0  ‘'A  |o  o o 

X X i j.;x  {X  z X 

uji^  f»»  m'o  o X|ui  •—  c> 

•>,!  '4k  «j‘  04, LO  z o«r«»  o ft 

«.4|W  W Wj^  *-4  ^ 4 

z<z<;<{<4j  l<LJiz<ij 
z!XXXr>.  ft  |X.  a.(— 

ft'aftcXik/.  «/j  uLxotuj 

ojo  o o;o  }0  » ♦ o a. 

u.'a.u.ix.u.x  XLjftcj 

I I ..4  rv  — • 

fN|  {’I  »*»  ^4} 

^ V ^-  f^\o-  r-  r- 

^1—^  4^  *“4|»-*  ^ 


O >-  O r-UW 

z z K 

*-•  a.;  •-•all 

►-  •fti  *-•  ft  o 

Z UJ  z u IZ 

o o o o:*'» 


a-  z«  Jfe.  zK  j 

OJ  z u-j>o 

ft  •>  ft  '^1 

o •*•  o a. 

(J  ft  u ft 

IX  O IX  O IX 

ft  ft  O 

o o 

X X ft 

X o X o ft 

O iC  • O <0 

— ft  — » 

.•-  Oj  »-  ft 

< »—  «4  UJ 

•J.  Oj  1L 

a a.  ftiuj  C3 
U < O JL  Z 

ft  -4  IX  H ft* 


fv  m Ur 

m 

*c 

fH 

► ^ vflv' 

•t 

fo  fA  milt* 

n 

fT 

(_  sj  u'<j 

o 

o 

O 

I, 


1 

i 


] 


\ 


12/49/lJ 


I .'^1 

1 1- 


u o o o 
u o «.>  o'  o 
o o o o;  -> 
0,0000 
i/'i  O CO  O' 
O o O O’  o 

^ M 

O;  O o o;  o ' 
a 
o 


z 

:r 


o ol  o o o!  O O ol  o o o o o o| 

O o,  O O O O O'  o o o o o o 

O O O Ci>  O;  o o o'  o o o o o o 

O O o o'  O O O O O 0|  o o o 

o W>  ^ H CO  O'  O,  ^ f^l 


^ I 


o 

^ X 


o 

o o o 

o o u 

o o o 

#4  ^ 

-9  Al 

a; 

V O 

I ''4 

< 

X 

a. 

•■  r> 

X • 

O X 

o 

UJ 

-4  O 

X 

o 

••  •>« 

>*- 

o 

* 

* A 

04 

-> 

X o 

X 

43 

o 

X > 

vA 

- Os 

T 

O 

a I 

4 

M M 

o 

X X 

O 

< - 

o 

O'  o 

a.  X 

X 

» ^ 

o 

o • 

o 

CM 

O 

2 

cj  < 

< O 

■n 

Z »-i 

^ X 

O X 

%/r  ♦I 

o 

o 

tfl  X 

X 

0|  ^4  - 

■X 

^ X 

oc 

1 X 

o 

* O' 

04  ^ 

X - 

LU 

O -• 

Q. 

00  o 

oc  •■ 

' 

* CLi 

o 

04  Z 

X 

< 

2 

ui  Z 

IM 

1 I 

o 

< “> 

3 

• ♦ /N»i  O 

£ Cl 

W O « 

r»  X 

iAJ 

; ^ 

» 4; 

X 

'*'  “• 

UJ  ^ 

X • 

I ^ * 

> -O 

0 X 

X 

k X a 

• 

^ Ui 

r- 

' r-  «♦* 

M # 

Cj 

1 ^ ^ 

{O  »-• 

CM 

o o 
^ r>j 
-> 
o o 

X X 

•r  nT 

X >< 

o*  ^ 


o o 
X X 
4*  •4’ 

i!  K X 
■iO* 


:i1iS  I 

<>j  o H 

u.  ^ ^ 

u.  «i  w! 

^ -< 


uj 

^1  — M ' -J 

t«|  <_»  OL  O,  ►- 

o;  ^ .i:'  u> 


l-,0  X lu.  i-g 
I «1  <1  <-4'  U.  » 
0:0  ♦ 1 j UJ  X 
w,  O X <N 

o f*»|  u>  w > 

■ -I  “>  •<  o * 

w VI  <»  Xj  V 

•.*3  — X -iJi  • » 

<*'•  oi  ♦-  •!  o > 

X\  .J  i'  ♦ a O X 

• H*J  Aii  ^ l-^l  U »H 

O O kA  < o • 
o.  *♦.  - u o X 
uj  !•  *3  •<  X ro 
O »*v  H-  O UO 
— ^ri  X *•>  1 "4  • 

w ^ I T ^ X 

»_  f_  fs.|  K . X 

«3  * * 9^  <i 

M.  >,1  >'*  K >vl  •.%  • 

^ li.;  <;  oj  fj.  ^ 
o cjim  ‘ 


I ^ rv  rni  4'  ir*  oj 
C^  7 I ‘T*  ;7-  c^J 
{000,0'' 

\_j4  '_>  o o i> 


rvf  u 

2:3 


•'«  r^i 


: * <1  < «t 

. X XiX  3L 

, o li  IX  LC  CJ 
J (Jl»  u 


n 
o >0 


v u(  <-«  c'j  f*'! 

cr  ' o o' 

w C^uwv^ 


248 


1 


olu  o o 
o O o O 
o cj  o o 

O CJ  o o 

fM  ij- 

o o o o 
o o o o 
OjO  o o 


o o u o < 
o o o a < 

cj  o o u c 
o (;^  u < 
tf-.  -o  r-  03  < 
c>  o o o < 
u o o o « 
O C3  0,0  « 


, ^3  Qi(j  n (j^o  KJ  0^0  o o^cj  o 0^0  o cjlcj  o oj<j  o o to  u o io  o oj< 

>00000  Io00‘ocj0;0  0000<j00  0 000000i003< 
JOOOOOOOOOOOOOO'OOOOOOOOCJOOOJOO, 

> o o o o o*ui  ooooooooooooooooouuoooo, 

4 r\j  rxi  «>;  ra  r.  fn  n m ^ ^ ^ f f pT  'T  ^ ll 

* O 0.0  O OiO  O O.U  O O O o o o o o o O O O O U O O O O o] 

, O 0,0  O OO  O O o o O o O O.U  O 0:0  O 0:0  O 0,0  O o o o o 


w K 2 ^ O 

^ X 

> flC  K < 

W lU 

<!x  a.  V) 

^ •,t.l^-  u *- 
“■ 

(O  ^ « 

Uj  >-2  0 

> o ►- 
o Xitf  — o 

o </l  uii 

oy  'O  at  > 

U.  UJ  UJ 

►-  o'*-^  > z — 

— ID  o lA 

uj'  o ^ 

» 1/1  Ui  ^ ^ 

> Ct ! aj  D 3 CJ 

2 uj'  ^ O > 

^ u — 

►-  2,0  UJ  ^ A. 

<l  -^'2  X •• 

a.  I I- « 

lu  LJ  O 

u.  x'-l  ui  — 

1-1  ►-  J ^ u 

>,j  o 

^ 0;X  <1  — 


— 

»-;2  2!  • 

*'  JC  *-  i-(  U.  IpJ  *■* 

*t|2  Ui  luu  ►-•  o 0| 

•-•'-H  ^ CJ  v» 

,»-  'a  ij  ol  oj 

^[4,1  f U/  VI  • 

2 X kr.  -J  > X r-,^  •" 

UI  w O UJ  a w> 


A.j  •-■'X  »—  x! 

UJ  UJ  x.r*  **  X •[ 

Uiix  * UJ  O *•  O ^1* 

2 « *-  UI.O  X (-J  2 2 • <«  u h'o 

-<,2  2 u.  ►-  v/’i  O CJ  -u  M ->•  ►••;x  o 

►-1  i/lLj  L)  ^ “»  J 

D’rt  •- •-  U.  2 'i  U1  ; ^0,10 

•j  UJ  ' X ^ |2  2 X O O ^'.O  •• 

Qtl&‘  *1  ^ kX.UJ  UJ  UJ  <>«  > UliU.  /\ 

a.ix  •H  J.w  ►-  ►-IX  X ►-{  -*  H 2 

O x X O X Aj  U'-'  — W'C)  Q.  U UJ  Z 

Vll*.  f Uj;i-  LJ  2|«-»  O Ojw  — O >/l 


_ ‘ 1 * 


• -»  * M.  X 
mU#  ^ ->{«t 
e lu  i»  Wj  — 
2 ^ 

l-«  — l/t 

«r».a  o “i-'z  * 

Cl  ••  o — *< 


► 'O  2 » *IJ 

> Ui  “‘'o  <2,1 

.>  X TD  ^ ol  »i 

riTvri-ou., 

I •-♦-•0  3'  •-•}«: 

I.  r-  »••■>  X X UJ  I 

I 2 2,^  >- 

. VJ  O tv.  2 u.  UJ 

. o ol**  i-J 


o . 
">  *-»  . 

of  •*  I 

• o • » \ 

) » O » 

j O UI  o • 

J U U>  • ( 

J *'2  «-< 

CJj  ► «J  « 

* O ro.*<*  « 

' O 'Tl  H <l  . 
.'  LJ  — '-J  H • 
.OX'  < 

I ^ ^ o o 

I F*  >.  ' ' 

( *1 . sT  «4  I 


tj  o u o o o u 


»U  r Ut  U>  -Jj'  olv'  U -^Itv  K 'flu'  O ^-'tu 

' j 1 »i  'O  / ^ ^ •—•I  r<..^  «.-(  ..<|.-i 

O O O O Q o O'O  0!0  O O ',3  O >■>  O 

uu|owu  V Uju  U W|.J  WU  '-’..J 

I I I ! I 


t;*llj  rsj‘«)  r u\Lo  ^ vV 

f.  -.t  r^f  rvi  rj'ri  r«a  r I r, 

O’O  O O ^ o Oi  3 O 

T '"T" 


o‘".3  "*3  o' 

o-o  O O; 


s|-  111!  ^ r-  'Ts*  C'  o 

lO  r-'  nl'm  .^  -f  1 

o o'-"  o O'O  o oj 

o o <•»  ci  ‘■Jj'-J  0| 


L 


1 


o o 
o 
o 

^ li% 
(A 

o o 


250 


I 


rfi.i  1 fi C C0|  C CM 


1 

1 


J O O' 
3 o o: 
.)  o o, 
J cj  u 
m 

i o o, 
J o o 

J o o 


<■>  o o' 

O C3  o. 
o <j  o: 
o u 
i/N  o 
O o c» 
o o o 
O o CJ; 
O 
tA 


X — ► 

•>  O 
^ \f\ 

» A* 
Z < 

z:  o 

*:  — 
X Q 
•■  m 


JL  o 

O O 

iD 

cc.  o 

* (A 
^ >— 

>-  A 

• O 


U O o 
O O o 
u o o 


<00V  -.  - . - _ 

oooooolooo;ocj«joo<;3,  ooo.owooooooo.  C‘oyo«-»0|OCJO,  oo 

o o »,o  a o o o o o o o o o o_o  o Jo  o u^o  ^ o o o o o « o o o o:o  o o o o 


looo'uoojoocj^ooo^cioJoocj'ooo^atJtJootJoooIcjotjlos^ 

ooo'ooo'oooooa.  OOCT'OOOOOOOOO,  L50000000000 
CJ  O O U O CJ,0  O O O O o'o  O C>iO  <j  O O O O O ~ ‘ ‘ 


w w,w  w w ^ w,w  w »-r  — W W O C>|0  o oooooooooooooouooo 

OOOlOOOOOOCJO  * ».#m.w»,%rw»«,r^rww»l»ri 


^j|CJOV;tJO«J,OOOOOOOt>t»|Tjvjw<j'_?»^«*jv 
0|0  0 0'UOOUO«JOUOOOO,CIUUUOOOUU 


CJOOUOO.UOOCIU 


T Cl 

^ z 

X «A 


a z 

• u 

o 

o o 
^ o 

o — 

^ '>  , 
0 2 — 
•■  o ^ 
. Ol 

o — ^ 
u w — 


4A  — • m t * 


Cf  O . Ci 


CJ  w ^ ♦ w 


; g\  j ”>  lO 


(2! 

I — ■ 

-IS' 


•«*  o u-i  n w 


• - Ho  2 ^ 

*r  <j  -ki  ^ ^ 

X ^ 4 .w  Ju<^< 
^ — !u  ^ <j  < 


ci  Z lA 

Uj  U *•<  C.'  >J 
uj  A «*  ; Z. 


>,  O <J  O J.  — I — O <J 


tA  — 1 

‘-iZ  • 

^v'  rj  • 

u;  X.  4 

U'  .ft.  . 


ro  •r 

O O 

o o 

CJ  Cl 


t Cl 
O O €;>|Q 

• • • • 

O C.J  o u 

» *1  m!  « 

I o 

^ ^ ^ *1  o z 

^ A 

C;  « I ••  * 

Z Z u.  2.lci  a. 


OlO 
OlO 
O'O 
o o 

■o  ^• 
•r  >r 
o o 
o o 


O 0|0  o o 
o u o 
o o'  o o o 
u o o o o 
a)  9^  ,0  IN 
•r,  u>  lo  «r 
o ol  o o o 
O u o o o 


O 'j  O'.  O ^ rg  'N  r J Aj  N 

o :j  o O o‘  c:  o V.  o o o o .i  o o ci  o o O o U 
LJ  o cij  Cl  d O Cf  O «J  Cl  O l W»  CJ  Cl  iJ  o o ci  f>  o M M 


I ^ r'  tq 

I f<i  lA  fA  r 

I O O O O O o< 

O U O Cl  O u| 


lA  >/  st]  sf  .t*  ^ sf  -4 

O O Q O O 'j  O o c 

CI«-l<Jc.lCIClCIOC 


• « 


251 


i 

i*' 

j 

'i 

I 


.1 

y 


CO<.r: 211_y  (iiLl  I l-tVKJ  { 1 1«<3 <VNJ(  l-:j««31/3.0»F C 0 ■>  3 C 0 c c 

CG4S  / ^^K(  I )r<Y^  Jl  I ( I-l  ) )»F  COSICC'CC 

C050  flNK(  I n-XkJU-l)  005t>CCCC 


m 


IL- «•« 


*4  a 

• *IO  « <1 

; .M  D| 

’ - < ! *2 
>.  -»,a  -n  -I— 

• & ^ r*"-« 

w H ■ _ 

^,u  •»  u| 


I <N 

I o o 

k tt\  «n 


•4) 

o o| 

Ul  U)] 


«rl  ir>  ^ fo 


W*  ■y^'lA  iT  lA 

O O o!  O O O 
U O ^ VI  Cl  u 


£ Z\ 


UJ  ClI 

•A 

o ^ u| 

VI  w <J 


^ ml 
• mm 
««  z 
a u 


iU  t 

'iii 


O -»  •»i*J  — 


— m w 

• ^ 

i.  M 1 • 

I 


lu  < 


I <N 


«.  O-  - 


M n 

■0  -3  O 

o o o 
m m m 


^ o ol 

.-t 

.ifc  «>«  V>  Wj 


o o ->! 

* * Zi 


Wi  M • «, N 


tllilA  m 
T lUl-^  ^ 
».  I !<,  M 
— « 


5f:  — 

-J  9. 


.-  - ,♦  u ci'-o  -<; 

U • I-  * ♦iv  o 

]•-•  I**  fv'u  m -^iV  »••< 

•ft  ♦ m;*  «->  oim  -• 
<-4iAN.(Aa  o*  I 

U U ■->  ^ ^ r T » 

I I Iv#  — ' Ui  •*»  4.  — 

a m!i<  h aiu  a n)»  u 


o|c# 

|A»  <-»  1 


, . m • . .. 

<n  * i»»  at 

> • v» 

„ , lii-i.?- 

« z m>o  m a ^ 

o Vl  V OF  Ui  W 
C « -a  fo  U •>*  «t 
-F  U U Z "•  < 

-I  m H I mum 

— * a a 

O A «•  FO  Ui  FF*  — Z 


'Z  Z jl 
•VI  v»  — 


v>  iv.m  •*  u/ 

& V u>jC;  <-4  U3.U,  -«  (A 

rsi  m ^ 

sf 

rt  u.  ^ 

-a  M ^ 

z ^ 2 

^ Ul 

VI 

m 

rg 

«i 

r» 

Ul-  « 

u>  a\ 

ai 

*0 

o 

O 

VI 

VI 

'T  V) 

■r 

•»r 

ca 

fw 

»g 

M A< 

ig 

rw 

fo  flO  ^ 

m r*i 

lA  -r 

o f*»  » 

LP>  VI  FO 

rg  m •» 

A <0  fo 

CD  ^ O 

M ra  lA 

sr  lA 

fo  tfl  (A 

1 CT  O >« 

A.  rw 

r^i 

f,  pw  »«. 

!>•  so  CO 

<■>>  -O  -n 

O ‘t>  -o 

•0  lu  O' 

o>  O'  ^ 

■>  C'lO'  O'  f> 

O O V 

moo 

O O OlO  o o 

'->  o 

O o o 

o o o 

O v>  <.1 

O O C 

O O OlO  o o 

j VI  VI  VI 

VI  o v» 

VI  VI  u 

VI  VI 

VI  U VI 

ii ' J mtvi  m VI 

1 

v>|m  N.  u 


252 


O'O  O Ol<J  « 

o o o o o < 

T>  '0  O J 

O tJ  o o < 
-H  rv  ''J  f*'  ; 

U O O 0.0  < 

O.’O  o O o ! 

OtO  O OlO  » 


»ooooo'ooooooloooooo:oocjooo 

tOUOOOOOOOOOOOOOOOOOOOOO 
>00000  c^OUOQO.OUOOOOOOOCJOO 
iOoooucjocjooo.oooouoooQ.ooo 

-r  I'lt 

► OOOOO.OOOiOOOloOOOOOiOOOioaO 

> O 0;0  O O O O O O O OjO  O 0;0  O 0,0  O ojo  O O 


• l>n 

0 rw  I 

P)  4«t  « r 

01  * • 4 

«#»••, 

» «*  *«r  V 

u.  • I • 

O < • ♦ I 

a)  » • 

^ • A|  I . 

W ^ I .W  . 

u*  *-*  Xi^lQ.  I 

*-l  ^ . 
U U U|I^  • 
^ ^ «9  t 

Nia  a a Cd  4 

M > 

* HI  ^|W  «i  O . 
) H ^ ^ ^ .J  . 

: o o)<  < 4 • 

• •-  •-^Jo  w O W 4 


► • I 

I IN  • • * « 

♦ o o >• 

I vt  » » • 

• ►-  * 9 K 

u.  o O — ^ 

, /:  wiw  uj  n 

• ^ y>'vy  ^ 9 

f x|x  «»  . 
‘ -tl-rt  U.  c 


’ 0(0  ^ 
» 0,0  -I 
I M < rn  «* 
> 0 0 w 


0|0  ^ ^'OO  OiO  o 0 0 o 01 
«1|<  n -tf  j-0  < « < ^ ^ < -» 
00  o o o w W w W W O w w 


IN  .T»[  ,f  UT  ( <J 

O O '-“3  o '00 
O 0:0  o 00 
o OiO  o Uj  o 


< till 

|«  (/>  O -J  fN  4n  £0  Vjo  fNlin  < 

O O -4  -N  .-4  *-4|-«  -4  -4  -^  -4  -^Uv  i-N  IN  rg 

00000  ojo  o 0|0  o 0 0 o 0 0 a 
o o o o o 0 0 o ojo  o u|o  O OIO  t; 


o|  o o o o < 
'>  f:>  o 'o'  o ( 
o,  o cj  oi  o 5 
o o u o ‘ 

•-*  f\j  1 (_■>  . 

0 0 0 0,0  f 
o o o o!  o < 

Uj  O O Uj  O I 


< I ' > 

> o ol  o o o,  o o tJ*  o o oj  <j  o O'  o o.  o o o CJ  o o'  o o o o o ci  CJ  cj:  o o oi 

30000000  0.  OOOOOOOOOO  O' 0000  0 0000''>'00  0'0  0 0 
3 O O O o O O O O O O O O O O <3  O O O O O O O O O O C.3  O O O O O O'  O O 


> O O o o o o o O O O O O O O O O O <3  O O O O O O O O O O C3  O O O O O O'  o o o 
>ovj,  000000000:0001  oooooooooocjcjooooo  <,3  0000 

i ^ ^ ^ fs4  Oi  f\i  r*4  r\i'  t\i  tn  ^ -f’  -t  ~T  ^ ‘If  -t  sT.i/s  \j\ 

) o ol  o o o,  o o o,  o r3  O’  o o 01  o o o o o o;  o o o o o ol  o o o o o o CJ  CJ  o!  o o o 

> o o o o OjO  o o' o o 0|0  o 0|0  0 c> o o O'  o o o o o OjO  o o o Cl  o. ij  o o o o 


r (/>  < i 

X o 

. « «:  iW  <41  • 

I «l  VI  v»  • < • O 

wo—*  < " 

• y:\*  n h\  hi  ft  ^ 

, Cl!  — 'N  “»1  Ui  i.1  3C  X 

. -1  - - o s 
' tfll  a.  ol  .2  c5  ! • 

I -*!  > > 0^-  01  O X 

, UJ,  « M O 

. a,  — <N  -£  a I — 

1 1-4  a.  a.  u w w o)  u 
I •»  M W >N  4 jI  iJ  <» 


•I-- 

Uf  41  4 JC. 

iiz2  z 

U3  o • 

w 4 *•  ,J  'I 

► 01  at  ♦ 

r«»  ujl  * IN  "> 

IM  .J  —■  ->  I i.  UJ 

-4  ->  O I o u*  o 

v»  •!  ->  II  I X v»  <— i « 

x|  O — { H II  </3  • 

I *J  •»  X ’ fX 

M ->  V»  «.  ! w W M u,l  tl 

►-“**1  •,»♦!-»  »lJ2 

< -X  II  •■>  C>  K O O 

XOINW"**U3>-*vHh-Pl 
M (->«-' 

U U.  ->  D ^ 4 ilL3  (,J 
u,  *-4  W I/I  M Ut  W UJ 


I I-  I o 

J |-s  o *« 

H • < — 1 ^ 

H—  Z -4 

H;  U ^ ..4  ^4  W *1 


H J"' 

II  ^ a/  >- 

-J  O ^ ♦ Z'-  *4 

-1  f U Z-  X 

o *.  u 


^ trt  ^ 

4|  4 i cj  < 
4 «4  Cc.  cj  o 


o yj  Z — * 
II  I ►«.  l/» 
O O « X- 

ix  U«  VU  OC  ' 
*U  \ ^ ■ 

rsl  u <31  U.  ■ 


IN  fTi  -a- 

o 00 

o 00 

O O w 


oj  V-  o — I « 

oo—*  — « 
O o’  O O I 

W CM  W W I 


I o .3  qj  O O 

’ o w l>  C3  W 


V wj  -o  r--  aj  tr  (J  r-j  CM  ^rj  in  -w  fJ  -o  cr  ci  fx  ' 

'CJ  'CJ  r.j  (\1  rg  M rl  «n  » c H m <T|  'n  ^ ^ •f 

o qj  o o ':i  o Q o o o o ;3  o o o :>  o o o ; 

W o w C3  Ij  O M C,>  u O CJ  CJ  CJ  O O 'J  Cl  w w « 


* 


O'o  o o o o ofo  o OlO  o o.c-  o o o Ola  o o'o  o '->;o  a o.c  o oio  o o 

O O O 0!0  O O'O  o 0.0  C,'  O’O  O O O C''  O O C*  a « O O O O O O Cl  O o D 

o o u rjic  o a c'*  o t->lo  o o o o o a 'j  o a o rj  ''  o o o o o cj  o o o u 

Oa001O00000;0C:oC3O00’_>OCJOCJ’tJC7tJO0CJ0tJOO0G 


oaooiooaooo;oc:oc3oao’_>ocjt->a’tjac^,cJOooc?oooG 

0.0  o 0;0  o o O o jvrsj  <v  rj  <M  (M  r-j.oj  rr  fn‘r>  <n  m 

O O o C,>  o C*  C O O O O o 0.0  O O C3  O O O O O fj  O O O O o u o o o o 

olo  o o o o OjO  ooioooocjQOo  o a o o;o  o o o c n-o  o o o o Oi 


•*  • 'Xi’.r 

;o|  »x 


»-•  a.| 

— l>4  -•l'^  v» 

I w tj 

» o|  J -*  4^  <»■—  o w! 

1 o!  I 1 ».  O U.J  ♦ ;<J 

« ^'i  a.  >-  ^ • - 00  CO  r.') r> 

r ♦ rio  ^ -/Iz-  z 

) oj  ::t  o '-'I  I >:  o o o ^ oc 

. ^ y-  *■.;»-  »- 

o j II  o — w,  w o , M • j xi  h-  CJ 

1 « O’-i  O il  I II  tL  U.  u.  II  t>tO  tj  ^|0  O H !U  Z 

i UJ  wl.*.  ^ •'-I.X  I—  ^ — 11^  W a.  o «t  C'  o CJ  O «. 


ITN  jo 
^ (O 


o o u u o u 


<^Jjm  >r  irk|.xj  r«  o «-'Icn  m ^r'lrt  -o  w V'  o f*4  n -.>•  4} 

Ojo  O 'i'-’y  rj  Oio  — ' '-'’.-I  "^!-4  --•  '■•<  I rgloi  f.j  '.1  .'-j  r^4  rvi 

0 0 o .)'o  O 0,0  o o;0  O O CJ  O o o o o o o o’o  O o 

0.0  o '.J'O  o o;o  O.tj  oio  <.j  (?  o «.J:o  o 


1 


APPENDIX  C 


LISTING  OF  COMPUTER  PROGRAM  FOR 
PREDICTION  OF  GEAR  MESH  EXCITATION  SPECTRA  -• 
GGEAR  {R-67) 


RUN  VERSION  2.3  — RSR  LEVEL  332— 


PROGRAM  Gfie*K<  INPUT  .OUTPUT.  TAPE5»INPUT«T*PE6»0UTeuTrT*PE22) 

GGEAR 

2 

RAOBSS 

CQtlHQtlAY72U.JCU2aJ..UJ0l<2SI  fUJ2(2S)  «UJC2<2S>  .UJU2(2S)  .ZJLISOI 

C21j>. 

1. 

lf23Cl<25t.2J01 <2S>.2j2<S0».ZJC2(25)<ZJD2(25>.OjiT5Ot .OJCl <251 .OJDl 

GGEAR 

4 

2l2SI.OJ2(SO>.ajC2(2S».  EJI ISO) .UJi (50t « CJC1(2 

GGEAR 

5 

. 

331.1  CJO 14251  ...  AJKSO)  lAJZISO)  .OJC  ISO)  lOJDlSO)  .ZJClSOliOJOlSO.  GGEAR 

.6. 

*).VJ<S0) .Ejl (SA).rj2(S0) <AjCI<25|.AJC2(25) .FJCl l<T) ,0J02 125) .ZM2( 

GGEAR 

7 

550) tUHZiSOl .MTC(27) 

GGEAR 

0 

BAilfllLS 

CQNKfltl.PJtSiOI.CJ<SO).OJISO),AJISO)fAJ(SO),TJtSO))  ... 

.GGEAS.  . 

a_ 

1A<1500) .B (1500 ) iG (3000) 

MATH 

1 

MBSOB 

COMMON  OO.BR.BA.FJ.CC.VM.NN.N.rN.i.EP.TAN.Re.GM.FtAM.MN.  1 1.H 

AL6 

1 



COH)(O0Lfl2X501-i0e(30).OC{S0)  .OAl  -.SO)  .OBI  (SO).OCl(aO)  .0A2(30).tQB2(Sl)  ..CCEAR 

12- 

1).OC2(SO)  tIH.lP 

GGEAR 

13 

««oeo3 

COMMON  MT(50)  •HCA01(6).nEA02(6> 

GGEAR 

1* 

flBflBfiS  . 

CQMHON/GU/NMCj  lNT.MMH.lPLT.fNl.FN2.fl8)  tRO l.R02.« J l.»RT£.j8Mi./yi2iF.i,. 

ALG. 

!L. 

lTl.T2.Fl.F2tflF|.Rr2.rE).TE2tG£l.GEZ.P0SI.P0S2.AN0 

AL6 

3 

<*09«3 

• DIMENSION  C-GG(3000).hTCC(3000).FJCC)(3000)  .AANCOOOO) 

MATH 

2 

MUiJ 

.Ka»s ...  . ....  .. 

GGEAR  . 

_.ia_ 

B90004 

. -6 

GGEAR 

19 

««OOOS 

198  Rt.  (NR. 100)  (HEA01(I).1«1.*).IHEAOZ(II.I>1.*) 

ogear 

20 

BE*.  ,lNR.iL7L  J.HC»LNT.MN.KMM.IPLI»1F0UHiJSPECT  . 

MAX?_ 

L 

««0047 

flEA0(NR.112)FNl,FN2.Rei.fi01.«02 

GGEAR 

22 

BBBOiS 

flEAO(N9.112)Rf 1.RT2.«m).RM2.F1.T1 

GGEAR 

23 

BtOUS 

RiA01NR.ll2)T2.Fl,FZ.RFl.flF3 

-GGEAR 

.2*. 

«Bdl23 

PeAO(NR.112)Yf.l.T£2.G£l.Ge2.POSl.POS2 

ogear 

25 

000143 

VAITEINW.IOO)  IMEAOt(l!«l«l.*).  (HEA02(n.t>l.*) 

GGEAR 

26 

A09U3 

)iaiT£.INV.lflll.  _ ..  . 

.0G£AR_ 

2T_. 

O0OJ6? 

VRl rClNV.lOO) 

GCEAR 

28 

000173 

«Rire<’M«.109l  NMC.INT.MN.HMM 

GGEAR 

29 

OO020T 

)UIt.T£tNV.lC*) 

JSGCKR. . . 

- 30- 

000213 

kRITE(NV.102)  Fl.FNl.RBl.RQl.RTl'RMl 

GGEAR 

31 

000233 

IF(MN)  Sll.SlO.Sll 

GGEAR 

32 

#0023* 

. Sid. kHlTClNV. 1031  . . . . . _.CCEAS. 33. 

<002*0 

GO  TO  312 

GGEAR 

3* 

0002*1 

511  VRITEINW.UO) 

GGEAR 

33 

0002*5 

512  WJlTF(Nk.lS6)TMeTP.FN2.R02»RT2.«F2 

GGEAR 

. 36 

0002«3 

VRITE(NV.HS) 

GGEAR 

37 

000267 

VRlTC(NV.l02)TJrFI,RFl.YEl.GCl.POSl 

GGEAR 

30 

000003 

WRItEJNV.lOJ)  ....  _ 

r.r;r  AQ 

14 

000313 

VRlTF(HV.102)TZ.F2.«F2.rE2.0C2.PO$2 

GGEAR 

*0 

000333 

VRITE(NU.16*) 

GGEAR 

*1 

000337  . . 

. ANG»0» 

GGEAR  . 

.*z_ 

0003*0 

IMC*!. 

GGEAR 

A3 

0003*2 

N-2.*Fl«l. 

ogEap 

A* 

0003*5 

NN*N.N.  , .... 

GGEAR.  _ 

*s_. 

0003*6 

IFIMN.EO.OI  T2«-T2 

JUNEl* 

1 

000351 

150  VHITEINM. 15001 

MAYS 

2 

eojass 

R£AD(NR.112lCL.VPTl.VPT2 

ATT) 

1 

000367 

VRITEINV.IOOO)  IRC. CL 

GGEAR 

*7 

000377 

VRITEINM.IIO) 

final 

1 

000*113 



CZIO 

i. 

000*05 

00  209  lal.NN 

GGEAR 

*8 

000*06 

RE AO ( NR . 1 1 2 ) Z J1 ( 1 ) .UJl ( I ) . Z J2 ( I ) .U J2 ( I ) .MT ( I ) 

GGEAR 

400*23. 

VRUeiNU.102)Z31(i>.UJl(I).ZJ2(I)iUJ2(l> 

GGEAR 

G3 

000*37 

ZNZIL)aZJ2II) 

GGEAR 

61 

i 


260 


RUN  VERSION  2.3  --PSR  LEVEL  332--  GGEAH 


OOOAAZ 

UH2(L>-UJ2(11 

GCCAR 

52 

• MAAA 

iriL-ll  200f200t225 

GGEAR 

S3 

• •0A46 

-22S  L»L^1.  - . ... 

GGCAR 

56 

•••ASO 

ZOO  CONTINUE 

GGEAR 

55 

•«9AS3 

CALL  OCARO(CL>VPTl>VPT21 

GGEAR 

56 

ttONSS 

NNN«IHC*N 

GGEAR 

57 

090A6« 

DO  200  I>1<N 

GGEAR 

58 

tOOAAl 

JJ«NNN*I-N 

GU 

1 

MOAU 

AANOlJOlaAjCl (II 

MAY  3 

3 

•«946« 

CGQlJJIaEJKll 

GGEAR 

60 

•99AT0 

C(JJ|a6C<3(JJ> 

•GEAR 

• 1 

M4A7Z  ■ 

HTCC(JJ1>HTC(II 

GGEAR 

62 

e«OAi« 

200  ('JCCIIJJIOJ 

MAT2 

1 

aoosoo 

INC»IMC»1 

GGEAR 

66 

409E41 

IFdMC.LE.NMCl  00  TO  ISO 

GGEAR 

AS 

••0503 

URITClNUflSOOl 

MAT3 

6 

00*507 

URITE(NMf2000l 

HAV3 

5 

•••513 

00  250«  :>1.NNN 

MAY  3 

6 

000515 

2500  NRITE(N«f  102)TJCC1  ((IiAAN6(II  .GGGd) 

MAYS 

7 

000531 

trdPLT.EO.1)  CALL  PUT  (EJCC1«GCG>VTCC<NNN) 

GGEAR 

66 

•00536 

NiFI 

GU 

3 

••05AO 

IFdFOUR.NC.il  GO  TO  3000 

MATO 

2 

••05A2 

VRlTElNHf 1291 

alg 

6 

•005A6 

CALL  POUR 

GGEAR 

67 

0005A7 

LL«MMH*1 

GGEAR 

66 

000551 

00  250  I-lfLL 

GGEAR 

6S 

•00553 

LP«I-1 

GGEAR 

70 

0005SA 

SNK*1 .•LP/NMC 

JUNE? 

1 

000560 

RESLT»SQRT (A  < 1 1 ••Z.B  d 1 ••21 

GGEAR 

71 

•00566 

250  HRITE(NUd2<>ILP>A(  Il.edl  <RCSL1  (SMK 

JUNE? 

2 

000606 

3000  IFIlSPECl.NC.ll  CO  TO  3500 

MAYS 

3 

600610 

CALL  SPECT 

MAYO 

6 

000611 

3SQ0  CONTINUE 

MATS 

S 

300611 

IFdNTI300«100<300 

GGEAR 

73 

•90612 

.100  CALL  EXIT 

GGEAR 

76 

003613 

100  FORMAKOAIOI 

GGEAR 

75 

000613 

101  format (72H0  PN0335aCOMPUTATlONS  OF 

GEAR 

tooth 

MESHING  ERRORS  GGEAR 

76 

1 3-22-1966  1 

GGEAR 

77 

000613 

102  F0RMAT(7C13.S| 

HAYS 

6 

000613 

103  FORPATIIZNO  PRE.ANCL£7A2HN22aa3HRI210A3hRT210X3HRN2)  CGEAR 

TS 

000613 

106  FORMAT</7A:MTllA2HNltlA3HR8110X3NR01IOX3HRTI10X3HRMl)  CGCAR 

80 

•00613 

1 05  format ( /6X2HT 1 1 1 A2HF 1 1 1 X3HRF1SX12HY0UNGS 

MOO-12XUHShEAR  MOO-12X11  GGEAR 

81 

IPPOS.RATlO-ll 

GGEAR 

82 

00061,1 

107  FORMAT (/6X2MT211A2HF211X3HRF25X12MtOUNOS 

MOO-22XI1HSHCAR  MOO-22X11  GGEAR 

83 

1hP0S,RAT10-2I 

GGEAR 

86  . 

000613 

100  format (SOHO  MESH  CYCLES  INPUT* 

OIFF 

.GEAR 

NiOF  HARMONIC)  GGEAR 

8$ 

•00613 

109  FORMAT (AXIAtA (8X1AI 1 

GGEAR 

86 

000613 

110  FORMAT (60M0 INPUT  LISTING  OF  PROFILE 

ERROR 

AND  supplementary  CQMPlI  FINAL 

2 

1 ANC£/bX2H21 1 1 X2HU1 1 1X2HZ21 IX2HU21 

final 

3 

000613 

112  FORMAT (6E13. 51 

GGEAR 

87 

0406U 

117  rORMAKSIS) 

MAYS 

. 7 

000613 

128  FORMAT (A3hOCALCULATEO  FOURIER  COEFFICIENTS  FOR 

E8RORS//7M  ISX  AL6 

S 

ISMAdl  13XAH8(IMAX1HC1AX2MKN1 

JUNE? 

3 

000613 

129  FORHAT(I7<3(AX  EIA.TI fFlA.7) 

UUNC7 

A 

000613 

ISO  FORMAT(2C13.5tl3X',3Cl3.S) 

GGEAR 

90 

00613 

160 -FORMAFdZHO  7XZHN22AX3HR02lOX3HRT210X.3tiRH21  CGCAR 

91 

000613 

16A  FORMAT (//16H  CALCULATED  OATAl 

GGEAR 

92 

•OIUIJI 

JLIUlil.f£RHAt^N. MESH. CYCLE  t«0.»I3t20Hi 

CENTER  0lSTANCEiittL3.61  . _ MAT1a__ 

. ± 

•00613 

1560  rORMAT(/6X  20(M»3Xl/l 

HAYS 

8 

•00613 

2000  Format (5x  3hjci9xahauci6xiihtanG.  error) 

mays 

9 

00063.3 

STOP 

GGEAR 

96 

•06615 

END 

GGEAR 

95 
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SUBROUTINE  GCAROICL .VPT 1 • VPT2) 

JUN13 

1 

AAIM1AA 

rnNHUH/vv/iuri  (ysi  .ii.ini  <?<:>  ,ii  i2<2Si  .u  ir?  (?*;i  .ii.iD2  (2si . 7 n (S0( 

.C21G-. 

2 

ItZJCl  (251  .2301  (251  .232(501  .ZJC2(25)  .2302(251  .03H50)  ,0301(251  .0301 

GEARO 

4 

2(251 .032(501 ,0302(251 . F3l (50) .U31T501 , 0301(2 

CEARO 

s 

- ■ _ . 

35) .0301 (251 . A31 (SOI . AJ2 (SO  1 .030 (SOI .030 (SO  1 .Z3C (SOI . 230(50 

GEARO 

6 

61  .V.MSOl  .EJI  (56)  .F32 (SO  1 ,A301  (2S)  ,A3C2(25l  ,F3C1  (271  ,0302  (25)  ,ZM2( 

GCARO 

7 

S50I .UH2(50) .*10 (27) 

GEARO 

8 

.««A0A« — 

COHMON  Pj (SO) .03(501 .03(50) . A3(50) .AJ (SO ) .TJ (SO) « 

GEAHO 

. „ 9 

1A( 1500) .8(15001.0(3000) 

HATil 

3 

•00006 

COHPON  00. BR. SA. F3. CO. YM. NN.N.FNJ.EP.T AN. RB. OH. F .XM.MN.Il .N 

AtO 

7 

•00006  ' 

- -COHMCN  OA(50).ee(5O>«QC(S0>.OAl(50).OBl(Sa).OCliS0).OA2(SG). 082(50 

GEARO 

12 

11.002(50)  .IH.IP 

GEARO 

13 

OC0006 

COHHOW  WT (50> •h£AD1 (6) •HCA02 (6) 

CEARO 

16 

004006  - 

...  . -.COHMOM/GU7NHO.  INT.MMM.  IPLT.FNI.FN^.PBI  .RO)  .ROjiRT  1 .RT2 .BN  1 .RRa . F I . 

alo 

a 

in,T2.Fi,F2,fiFl  .RF2,tE).YE2.GEl.Gt2,POSl.POS2,ANO 

ALG 

9 

C specify  ANO  initialize  REAOING  and  writing  UNITS  for  IBM  1800 

GEARO 

1 7 

• ♦00006... 



G2  Ako 

i a 

000006 

NMU6 

GEA^O 

19 

000010 

198  CONTINUE 

GEARO 

2U 

— 

— ..  — (FNi -rhai 

APR30 

. 1 

000013 

IF(MN.EQ.0)fiPl=CL*FNl/(FN2-FNl) 

JUNE? 

5 

000017 

CTT-RBl/fiPl 

GEARO 

22 

044021 

••  ••  TTT-SOfiT  ( U-CT7»»2>/CTT 

G£Aro 

23 

000026 

THETP=ATAN(TTT> 

JUNES 

1 

000030 

THETPP=THETP.lg0.23o 16 15927 

JUNES 

2 

.044433  .. 

. vfilTElNW. 112) 

YUNG 

1 

000036 

wniT£(N«,102)  THETPP 

JUNES 

3 

000066 

IF(F1-F2)  320.320,321 

GEARO 

25 

OOOOSl  . 

321  FF26F2 

GEARO 

26 

000053 

CO  TO  322 

GEARO 

27 

OOOOS3 

320  FF2=f1 

GEARO 

26 

^OOOSS  - 

..  322  3'F2=FF2..0.8 

GEARO 

29 

000061 

306  001=-Tl72.0/RP1.TM£TP 

GEARO 

33 

00006S 

F12=FNI/FN2 

G€AftO 

3- 

.400067 

(!P2=fiPl/F12 

GEARO 

35 

000070 

C02-•'r2/^.0/»^^2♦THeTP 

GEARO 

3o 

C)00074 

FNJs2.0*FI.1.0 

GEARO 

37 

^0077 

. N=FNJ 

GEARO 

36 

000101 

GEARO 

39 

000102 

CS.'CT'f 

JUNES 

1 

000106 

TaNbTTT 

JUNES 

4 

0(010$ 

EP1=1.0-POS1*POSI 

GEARO 

43 

000107 

EPi=yf i/EPi 

GEARO 

44 

4001.11 

. £P2al.O-POS2»POS2 

GEARO 

65 

000116 

EP2iYE2/eP2 

GEARO 

46 

OOOllS 

£P12.( 1.0/EP1»1.0/EP2)»0.5 

GEAMO 

47 

000121 

EPIZ=EP12**0.9 

GEARO 

4^ 

000125 

382=Rei/F12 

JUNES 

5 

000127 

'.:=R0l7PBl 

GEARO 

51 

000130 

C2-«02/'wa2 

GEARO 

000132 

8W?»(SOm7  f C2*C2“ 1 4 0 ) ArU 

Gt-iAwO 

Sj 

000160 

0fil3(SQHT  <C1 •Cl-l 

GEARQ 

56 

060146 

C3=TAN/F12 

GEARO 

S5 

000147 

1F)8R1-C3)  603.603.606 

GEAHO 

b6 

1 iS 
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GfAKU 

e«oiS4 

404  eRl>iC3 

GEARO 

57 

000156 

VRITE(N«.126)BR) 

GEARO 

58 

000)63 

403  aAlaBR2/ri2 

GEARO 

54 

000165 

BA2aBRl*E12 

GEARO 

60 

090166 

ir(HN)  440(450.440 

GEARO 

61 

000172 

450  S«1«-BAI 

GEARO 

62 

000173 

eA2«-aA2 

GEARO 

63 

000175 

440  iriBAl-TANI  401.401.402 

GEARO 

64 

000200 

402  BAIaTAN 

GEARO 

65 

000202 

VRITE(NM.125)BA1 

GEARO 

66 

000207 

401  Cla6.2e3i845/rNl 

GEARO 

67 

000211 

irjBA|-Cl)  213.213(61) 

GEARO 

68 

000216 

611  WRITE <NW. 174) 

GEARO 

69 

000222 

213  iriBRI-CII  215(612.612 

GEARO 

70 

000227 

612  wR|Te(Nh.)75) 

GEARO 

71 

000233 

215  C1»RT1/RB1 

GEARO 

72 

000235 

C2«RT2/Pe2 

GEARO 

73 

000237 

Cl  -SORT  (Cl«Cl-l ,01-tan 

GEARO 

74 

000245 

ATlaABS  (Cl) 

GEARO 

75 

000246 

C2  -SORT  (C2«C2-1 .0)-TAN 

GEARO 

76 

000255 

AT2aAeS  (C2) 

GEARO 

77 

000257 

WRtTe(NW.I22l 

GEARO 

78 

000262 

WRITE(NW.102)RPl.Rei.eAl.RR| .ATI 

final 

6 

000300 

WPITE<NW.162I 

GEAhO 

80 

000304 

WPITC(NW,i02)RP2.R02,eA2.BR2.AT2 

GEARO 

81 

000322 

NH2>i 

JUN13 

2 

000323 

NUZsl 

JUN13 

3 

000324 

IF<ATI-0AI)  31i.2l6,2l6 

GEARO 

84 

000331 

311  WRITE(NW.176) 

GEARO 

85 

000335 

216  IFIAT2-8A2I  304.217,217 

GEARO 

86 

000342 

304  IFiMN)  620.621.620 

GEARO 

87 

OO0343 

621  WRITE(»jw,17a) 

GEARO 

88 

000347 

00  TO  217 

GEARO 

84 

000352 

620  WRITE<N«.17<7) 

GEARO 

40 

000356 

217  1F<RM1-Pei)  141,142,142 

GEARO 

91 

000363 

141  AMIal.O 

GEARO 

92 

000365 

WRITCINW.lia) 

GEARO 

93 

000370 

GO  TO  1420 

GEARO 

94 

000373 

192  AHlaRMl/RBl 

GEARO 

95 

000375 

1420  ClsAW! 

GEARO 

000376 

ARl-SORT  (AH)««H|-t.OI-TAN 

GEARO 

97 

900404 

C2»RF1/Rei 

GEARO 

98 

009406 

PFlaC2 

GEARO 

99 

000407 

Cl*RHl/R81 

GEARO 

100 

000411 

C3«(C1»C2I»«2-1.0 

GEARO 

101 

000414 

1F(C3I  4«6.406,407 

GEARO 

102 

000420 

406  C3»0,0 

GEARO 

103 

000421 

WRITE(N«.I56I 

GEARO 

104 

000425 

TP01«0.0 

GEARO 

105 

000426 

WRITE <NW,1S6IP01 

OEARO 

106 

000434 

GO  TO  40R 

GEARO 

107 

000437 

407  POtaSQRT  (C3) 

GEARO 

108 

000441 

TPDl-ATAN  (POD 

OEARO 

109 

000444 

409  1F(RK2-RB2)  143,194,144 

G'.ARO 

110 

00045) 

193  AM2>1.0 

GEARO 

111 
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CEAKU 


000<iS3 

MRlTElNMollOl 

OOOX.S6 

GO  TO  1940 

OQQfcftl 

, .19it_AH2=RH2/RB2. 

080A63 

1940  C1>AH2 

090A6A 

AH2>S0RT  (AH2*AM2-1.01 

090V72.— 

_ _.C2*fiF2/RB2 

OOOA7A 

PF2=C2 

e00A75 

Cl -RM2/RB2 

JODAja 

.If (MNl -4S&f4SSi4S6 

eooso2 

455  C2*-C2 

000503 

456  C3»(C1*C2I»''2-1.0 

000506 

1F(C3)  409»409t410 

000510 

409  C3=0.0 

000511 

VR1TE(N««155> 

^0515  ... 

..  ..  .TP02=0.0 

000516 

MftITe(NVtl55)P02 

00052A 

GO  TO  411 

000527 

410  P02=SQRT  (C3I 

000531 

TP02=AIAN  <P02) 

00053A 

411  Kl=l 

.000535..... 

. ..  . £1=PF1  . . 

000536 

E2=P01 

000540 

£3=TP01 

000541 

E4>RH1 

000543 

00*001 

000544 

C1=AH1 

000546  . 

201.  C2=DD‘C1 

000550 

C1«ATAN  (TAN»C11 

•00554 

C4*C1-C2 

000556 

C3»E3-£2-D0«TAN 

000562 

IF(M-1I  422.422,425 

000567 

425  JFIMN)  422,421,422 

000570.  . 

. .421.  C3«-C3 

000571 

C4«-C4 

000573 

422  C1=C3*E1 

000575 

C4=(C1*C4)*0.5 

000600 

Y=F4«SIN  (C4l 

000602 

X=£4«C0S  (C4) 

000605  . 

IF(Kl-il  202.202.203 

000612 

202  XHl*X 

000613 

YMl  = T 

000615 

K1=K1*1 

000617 

00*002 

000620 

C1*AM2 

000621 

E1=PF2 

000623 

E2»P02 

000624 

E3»TP02 

000626 

E4*RM2 

nnOOJfl 

00  TO  201 

000630 

203  XM2.X 

000631 

YM2*Y 

000633 

EE*6.2831854/FnJ 

000635 

CC*EE/FN1 

000636 

FJ  *-FNJ»l.0 

000640 

Re°Pdl 

CCARO 

112 

GCARO 

113 

OEABa  _ 

GEARO 

115 

gearo 

116 

GEARO 

117 

gearo 

118 

GEARO 

119 

GEARO 

. 120_ 

gearo 

121 

GEARO 

122 

GEARO 

123. 

gearo 

124 

GEARO 

125 

GEARQ 

..1Z6 

GEARO 

127 

GEARO 

128 

GEARO 

129 

gearo 

130 

GEARO 

131 

gearo 

132 

GEARO 

133 

GEARO 

134 

GEARo 

135 

GEARO 

136 

GEARO 

137 

GEARO 

138 

GEARO 

139 

gearo 

140 

GEARO 

141 

GEARO 

142 

GEARO 

143 

6f  ARO 

144 

GEARO 

145 

GEARO 

146 

GEARO 

147 

GEARO 

>48 

GEARO 

149 

GEARO 

150 

GEARO 

151 

gearo 

152 

GEARO 

153 

GEARO 

154 

GEARO 

155 

GEARO 

156 

GEARO 

157 

GEARO 

158 

GEARO 

159 

GEARO 

160 

C,E  ARO 

16! 

gearo 

162 

GEARO 

163 

GEARO 

164 

GEARO 

165 

GEARO 

166 

264 
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•AOMl 

OPaaPl 

GEAPO 

167 

•00643 

e*«a*i 

6EAPO 

166 

•00644 

00*001 

GEAPO 

160 

000646 

XMaXHl 

GEAPO 

176 

000647 

7M*VM1 

geamo 

171 

0006SI 

QM-OCI 

GEAPO 

172 

0006S2 

r«ri 

GEAPO 

173 

0006S4 

i]«i 

GEAPO 

174 

••06SS 

CPsEPl 

GEAPO 

175 

•006S7 

WR|7C(NV.ISII 

GEAPO 

176 

000662 

CALL  AJCOH 

GEAPO 

177 

000663 

00  221  1*3. NN 

GEAPO 

178 

000667 

Cl  «XJ<11 

GEAPO 

170 

000670 

C2  aTJlI! 

GEAPO 

lao 

•00672 

FJKIlaPOlII 

GEAPO 

101 

000674 

C3*CJ(II 

GEAPO 

182 

00067S 

AJl (tl«Aj<II 

GEAPO 

1B3 

•00677 

CJl (II>QJ«1I 

GEAPO 

184 

000701 

IM1«1M 

GEAPO 

185 

000702 

IPlalP 

GEAPO 

166 

600704 

QAKlKOAtlt 

GEAPO 

16’ 

000706 

OBI  lIloORin 

GEAPO 

186 

000710 

acKiiaocin 

GEAPO 

189 

000712 

lr(C3l  515.515,516 

CEARO 

190 

000  714 

SIS  VP]7e<N«,102IFJHl)  .C3.AJ1  (It 

CEARO 

191 

000726 

GO  TO  221 

CEAHO 

192 

000731 

S16  VPITElNV.102irjl  (11  .CS.AJKlt  .OJI  (11  <C1.C2 

GEAMO 

193 

000751 

221  CONTINUE 

GEAPO 

194 

0007S6 

«P1TE(NW.120IXH1,TM1 

GEAPO 

1,95 

00076S 

WRITE (NN. 1611 

GEAPO 

19fc 

000771 

00  517  |<IH|.(PI 

CEARO 

197 

000775 

517  tiRITE(NW,102|FJl  (It  .OAl  (11 ,0B1  (It  ,0C1  (II 

CEAMO 

198 

OOlOlS 

00«002 

GEAPO 

199 

001016 

R0»RR7 

GEARO 

200 

001017 

XM«XM2 

GEAPO 

20! 

901021 

YMaVM2 

GEAPO 

202 

001022 

iriMNt  302.301.302 

GEAPO 

203 

001024 

301  FJ'FNJ 

GEAPO 

204 

001026 

GO  TO  310 

GEAPO 

205 

001026 

302  FJ.-FNJ 

GEAPO 

206 

001030 

310  F«f2 

GEAPO 

207 

001031 

EP'EP2 

GEAPO 

208 

001033 

CM»Ge2 

GEAPO 

209 

001034 

cc*eE/rN2 

GEAPO 

210 

001036 

II-2 

GEAPO 

211 

001040 

VRITE(NW.1521 

GEAPO 

212 

001043 

CALL  AJCUH 

GEAPC 

21i 

• 01044 

l*nn 

GEAPO 

214 

001046 

00  222  I'l.NN 

GEAPO 

215 

OOlOSl 

C4  >X.I(]t 

GEAPO 

216 

O0I0S2 

C5  «7J(lt 

GEAPO 

217 

001054 

1H2«1H 

GEAI.O 

216 

OOlOSS 

1P2«1P 

GEAPO 

219 

001057 

042  lit ■OAl It 

geamo 

220 

001061 

0B2(It*OB(It 

GEAPO 

221 

265 
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atm'i 


001063 

oc2(n«oc<ii 

CEARO 

222 

001065 

FjaiU'PJl!) 

GEARO 

223 

_»0Ja6i 

Xl^AJlU 

GFARQ.  726 

001970 

6J21L)«C1 

GEARO 

225 

001073 

C2>OJ(n 

GEARO 

226 

-001»7<i-. 

— 

QJ2tLI=C2 

. GEARO  . - 

227 

001076 

ir<C2)  519. 518. 519 

GEARO 

228 

001076 

518 

NRITe(N8.>32>rj2(!).Cl 

GEARO 

229 

XiO.  lOXP.O-  ..  . 

r«rARn 

•01111 

519 

liRlTE(NHfl32:FJ2(I).Cl>C2.C«<CS 

geaRo 

231 

001127 

520 

1F(L>II  222«222<226 

GEARO 

232 

,001 13X  . 

_,2Z6 

LiL^l  . , 

geaRq 

. ,231. 

001135 

222 

CONTINUE 

CEARO 

236 

00:160 

WRITe(NH.120l3M2,YN2 

GEARO 

235 

-Miliil 

JiiillI£lKM.163l.  . . ... 

. ,ii£ARU  . ., 

_236_ 

•011S3 

OG  521  1>IH2.IP2 

CEARO 

237 

001157 

S2l 

8RlTE(N8>132IFJ2II).aA2UI.0B2(II.0C2(n 

GEARO 

233 

,0*1177  . 

.00  251  Ixl.N 

CCAflQ 

239 

091200 

lNsl«N 

GEARO 

240 

001201 

FJCl lIlaFJl ( IN) 

CEARO 

261 

- . 

lUU 

_ . . GEARO 

—242  - 

001206 

AJC2(1>=AJ2<IN) 

CEARO 

263 

001210 

OJCl fll'OJl (I) 

GEARO 

244 

001212-.- 

.OJCl (1>-0J1(IN) 

GEARO 

265 

001216 

C3C2(I)>Oj2(INI 

GEARO 

266 

801216 

Q.)02(l»  = QJ2(n 

GEANO 

267 

aoi ??n 

<n 

. . . GEARO—.. 

.X4a 

001222 

251 

CJC1(I)»CJ  <ZN) 

GEARO 

266 

901226 

NUZ^l 

GEARO 

250 

.0012P7  _ 

, . — . . . 

GEARO. 

251 

901230 

197 

continue 

MATl 

1 

001230 

1 »NN 

CEARO 

25: 

00.1232 

— _ . 

.Xfl-AlS  . l = l.N 

CEARO.. . 

254 

901233 

INJ!l«N 

GEARO 

255 

001236 

UJOl (llaUJl (1) 

CEARO 

256 

001236.. 

UJCl (tl>UJ] (IN) 

CEARO 

.26’ 

001261 

UJC2(II«'JH2(IN) 

CEARO 

253 

001263 

UJ02'IlsUH2<I) 

GEARO 

259 

001245 

- 

.zjoiaiazji  (11 

CEARO. 

. 269 

001267 

zjci  (n»zji  (IN) 

GEARO 

261 

001251 

2JC2)I)«ZM2(IN) 

GEARO 

262 

.0012-53  . 

. , , , ,, 

2J02(I1»Z“2(I> 

CEARO 

263 

001255 

C JC  ( I ) *0.)C  1 ( 1 1 *0 JC 1 ( t ) *0  JC2  ( I » ••U JC2  1 1 ) 

GEARO 

266 

03:263 

OJO( I )kojoi (I > .ujol ; 1) *0302(1) *ujDZ( I > 

GEARO 

265 

001271-. 

, 615 

-ZJC<1)=ZJC1(I)*ZJC2(I) 

GEARO 

. 266 

001301 

799 

CONT I NOE 

CEARO 

267 

001301 

«RITE(NW.106) 

CEARO 

263 

001305 

.. 

vniTE(NV,l02)VPTl.VPT2 

CEARO 

269 

001317 

VPl-iVPTl/CS 

Gf  ARO 

27C 

001322 

VPZ^VPTZ/CS 

CEARO 

271 

001326- 

..  6ia 

CONTINUE 

hATl 

2 

00132^ 

WRlTEiNH  US) 

UEARO 

275 

001330 

CO  SOI  1<I.N 

CEARO 

27b 

001336  „ 

VI(l)=8T(N*n 

GEAHO 

277 

021337 

VNaWTI.),'CS 

GEARO 

273 

266 


RUN  VERSION  2.3  —PSR  LEVEL  332«>  GEArlO 


• •I34>1 

iriwN)2i4.ai4.8oo 

GCARO 

2T9 

«91343 

800  CONTINUE 

gearo 

280 

901343 

Cl>WN**.l 

MA71 

3 

901347 

00»l.37/Vr2»EP12/Cl 

MATI 

4 

9013S2 

2 JO ( 1 1 aE JOI 1 1 1 • 2j02 ( 1 1 *VP|.VP2 

gearo 

291 

991360 

CCC  >0JC(I)«00 

GCARo 

292 

901362 

000  >ojO(i)*ao 

geamo 

263 

991364 

C1*CJC1(1I 

GEARO 

294 

991366 

C2«CJ01 (It 

GEARO 

29S 

901367 

IF<C1I  256.256.257 

GCARO 

296 

901371 

256  ir(C2l  501.501.258 

GEARO 

297 

991373 

257  |f-(C2>  250.259.260 

GEARO 

298 

901375 

259  VJ(I)*ZJC(I)-CCC  *i*N 

gearo 

289 

901401 

WTC(It>HN*CS 

gearo 

299 

991403 

UT0>0.0 

gearo 

291 

901404 

GO  TO  261 

GEARO 

292 

001405 

258  VJ(ll«2JO<n-OOD  •NN 

gearo 

293 

901411 

NTCl 1I<0.0 

GEARO 

294 

001412 

wro>uN*cs 

GEARO 

295 

001414 

CO  TO  261 

cearg 

296 

901415 

260  C3aCCC  •6N.2jO(It-2JC(ll 

gearo 

297 

901422 

C4.000  ‘NN.ZjCi  n-ZJOtl) 

gearo 

298 

001426 

ir(C3l  259. 259. 262 

GEARO 

299 

991439 

262  ir(C4l  258.258.263 

GEARO 

399 

901432 

263  C1>CCC.000 

gearo 

301 

001434 

C2»CCC  •230(11.000  ‘ZJC  ( 1 1 -CCC»OiiD»VN 

GEARO 

392 

901442 

VJtl )»C2/Cl 

GEARO 

303 

001444 

C1»CS/C1 

GEARO 

394 

001445 

6TC( I1»(000»«N»2JC<1I-2J0(I) (‘Cl 

GEARO 

395 

901452 

«ro<(Ccc*6N«zjo(ii>zjc(tii*ci 

GCARO 

309 

901460 

261  EJl ( II>VJ( ll/CS 

gearo 

397 

001463 

iJCl(ll.>6NG.6JCI(Il 

gearo 

308 

091465 

HRnc(NV.I02IFjCl(T).AjCl(I>.CJl(l).wTC(I>«VTO.*N.»T(I).OO 

MATl 

5 

OOlSlt 

501  CONTINUE 

gearo 

310 

991516 

ANG«AJCl (N) 

gearo 

311 

991517 

24  IPINUZ-MUZI  504.504.502 

gearo 

312 

001522 

592  MU2>4U2.1 

GEARO 

313 

001524 

GO  TO  199 

gearo 

314 

001524 

504  MU2«1 

GEARO 

315 

001525 

IF(NMZ-MN2I  214.214.506 

gearo 

316 

901530 

596  MN2«MMZ.l 

gearo 

317 

001532 

GO  TO  197 

gearo 

319 

001532 

214  CONTINUE 

GEARO 

319 

991532 

593  RETURN 

gearo 

320 

091533 

102  FORMAT (8E13. SI 

MAYl 

6 

991533 

196  F0RMAT1//34H  INPUT  DATA  ON  TOOTH  SPACING  ER«0R/644HVPT19*4MVPT2) 

gearo 

322 

001533 

110  F0RMAT(60M01NPuT  listing  of  profile  error  and  SUPPLEMENTARY  COMPLl 
1ANCC/6X2HZ1I1A2HU1I  MZHZZIIAZHUZI 

gearo 

GEARO 

323 

324 

901533 

112  F0RMAT(16H0PRe5.ANGLe(OCGU 

final 

7 

001533 

115  format (42H0CALCULATE0  TOOTH  MESHING  ERRORS  AND  LOAOS//6X3HJC19A4HA 
1JCI6A11HTANG.  ERR0R6X3HHTCI0A3MWTniIX2HUNllA2HMTt0A3H0JD) 

G(  ARO 

MA11 

325 

7 

001533 

lie  FORHAT(74HOORIylNC  GEAR  INPUT  ROOT  RADIUS  SMALLER  THAN  BASE  CIRCLE 
1 RADIUS  I 

gearo 

gearo 

32  7 
329 

091533 

119  format (74HOORIVEN  GEAR  INPUT  ROOT  RADIUS  SMALLHH  THAN  BASE  CIRCLE 
1 RADIUS  • 

gearo 

gearo 

329 

330 
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level  332- 


OEAMQ 


001S33 

^015.33  — 
09iS33 

ooisia 

001533 
JLj61.S33  .. 
•0tS33 
40IS33 

001533  ' 

001533. 

001533 

001533 

001533 

001533 

001533 

001533 

001533 

001533 

601533. 

001533 

001533 


120 

FORMAT (AShOCOCO.  OF  EFFECTIVE  TOOTH  PROFILE  AT  ROOT  CIRCLE11XIMX13 

GEARO 

33i 

IX1HY/S2X.2E13.6) 

GEARO 

332 

_ 122 

FORH/^T  (/6X3HRP1  IOXJhRBI  1 0X3HBA1 10X3HBR1 1 0X3HAT 1 ) 

ALG  - - . 

10  — 

125 

FORmaT(66mO  driven  GEAR  TEETH  ENGAGE  UNDER  CUT  FOSTION  OF 

driving 

GEARO 

336 

IGEAR  TEETH/.'SH  eAl>^.  E13.6> 

GEARO 

3)5 

- ,126 

F0RHAr(66Ha  DRIVING  GEAR  TEETH  ENGAGE  UNDER  CUT  eORTlON  OF  ORIVrN 

gearo 

336 

ICEAR  TEET)i//GH  eRl>.  £13.6) 

GEARO 

337 

132 

FORMAK  EI3.5.13X«AEt3.5) 

CEARo 

338 

...151  .FOHHAT(/6X2HJUlX3HCOllOX3HAJiax6HQJiA8C9X3HXJ110X3HYJl) 

GEARO.  . 

339  . 

152 

FORMAT  (/6X2HJ22<.x3HAJ2aX6HQJ2AeC9X3HXJ21pX3nYJ2) 

GEARO 

360 

155 

format (63H00RIVEN  GEAR  INPUT  RADIUS  TO  FILLET  CENTER  INSIOE 

BASE 

GEARO 

361 

1CIRCLE./A2H0PR0GRAH  CONTINUES  WITH  CORRECT  TREAthENT.) 

GEARO 

362 

156 

FORMAT l63hG0RIwlNG  GEAR  INPUT  RADIUS  TO  FILLET  CENTER  INSIDE 

BASE 

GEARO 

363 

IC.'RCLE./oaMOPROGRAM  CONTINUES  WITH  CORRECT  THEATnENT.) 

gearo 

366 

1S9 

FORMAT  a3X.6E13.S) 

GEARO 

. 365. 

16) 

FORMAT  I/6X2HJ1 10x<iHOOlA9X6HQJl89XAHajlC) 

GEARO 

366 

tu2 

format (/6X3MfiP210X3HRe2lOX3M8A210X3M8R210X3HAT2) 

CEARO 

367 

. 163 

FQRMAT(/6X2HJ210XAHQJ2A9X<ihOJ2B9X4Haj2C> 

GEAMO 

368 

170 

FORMAT (R3H0CALCULATEO  TOTAL  CONTACT  COMPLIANCE  OJD-.EIS 

.6) 

GEARO 

369 

171 

FORMAT l23nOCALCULATCO  NORMAL  WN^.  E13.6) 

gearo 

350 

_ 17.6 

FORMAT (flOMO  ANCLE  OF  APPROACH  ON  OfllWlNG  GEAR  IS  GREATER 

THAN.  TOOT 

GEARO  . 

..35L 

IH  SPACING  ANGLE.  PROGRAH/2SHCONTINUEO  WITHOUT  OVERLAP) 

GEARO 

352 

175  fORM*T(75HO  ANGLE  OP  RECESS  ON  DRIVING  GEAR  IS  NOT  SMALLER  THAN  TO  GEARO  353 

lOTH  SPACING  angle.  /3Am  PROGRAM  CONTINUED  WITHOUT  OVERLAP)  GEABO  35G 

176  FORMAT(80HO  driving  GEAR  TEETH  MESHING  ON  PROPIlE  InSIOE  OF  TIF  01  GEARO  3SS 

lAMETER.  program  CONT INU-y2 1 HEO  WITHOUT  CORRECTION)  GEARO  356 

178  FORMAKSOHO  DRIVEN  GEAR  TEETH  MESHING  ON  PROFILE  OUTSIDE  OF  TiF  0 GEARO  3S7 

llAHETER.  PROGRAM  CONT IN-/22HUE0  WITHOUT  CORRECTION)  GEARO  358 

179  r0RHAT(80Ma  DRIVEN  GEAR  TEETH  MESHING  ON  PROFILE  iNSlOE  OF  IIP  01  GEARO  359 

lAMETER.  PROGRAM  CONT tNU-/2tH£0  WITHOUT  CORRECTION)  GEARO  360 

END  GEARO  361 
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RUN  VERSION  2.3  ->P$R  LEVEL  332— 

SUBROUTINE  AJCOH 

AJCOH 

2 

MOM2 

DIMENSION  S0<S9l«CO(S0lteiK(S0).AtK(54>.FLKlS0l  tCOCISO) 

auCoh 

3 

M90«2 

COMMON  PjISOt (CJISOI .OJ(SO) .43(90) .XJISO)  iVJlSO) * 

math 

4 

14(1399) .ai 1500). « (3409) 

NAVll 

S 

••0092 

COMMON  OO.eR.B4.FJ.CC.VH.NN.N.FNJ.EP.T4N.RB.GH.r«4NtHN.n.M 

ajcDh 

S 

•«00«2 

COMMON  OAISO) .0B(S9) .OC(SO) .041 (SO) tOBl (SO) .OCl <59) .042(50) .082(50 

AJCOH 

6 

1).0C2(54>.IH.IP 

AJCOH 

7 

««M«2 

00  104  l■l|NN 

AJCOH 

B 

990044 

04(t)«4.0 

AJCOH 

• 

99909S 

0a(l)>0.0 

AJCOH 

19 

999906 

OC(t)-0.0 

AjCOH 

11 

994947 

Oj(l)aO.O 

AJCOH 

12 

099914 

XJdlaO.O 

AJCOH 

13 

999911 

106  VJdOO.O 

AJCOH 

14 

990914 

lFdI-1)  405.405.403 

AJCOH 

IS 

999917 

40S  MMal.O 

AJCOH 

16 

994921 

GO  TO  404 

AJCOH 

17 

444922 

403  MH>MN 

AJCOH 

la 

990924 

404  Kx) 

AJCOH 

19 

99992S 

00  SOI  1x1. NN 

AJCOH 

20 

999027 

4Jd)xFJ«CC 

AjtOH 

21 

994931 

Pj(I)xFJ 

AJCOH 

22 

•99432 

IFdl-l)  412.412.413 

AJCDH 

23 

949935 

412  call  C4LC3(43(I).BR.BA.XV) 

AJCDH 

24 

994442 

CJdlxXT 

AJCOH 

25 

990944 

GO  TO  414 

ajCdh 

26 

999445 

413  XYxeOCd) 

AJCDH 

27 

099947 

414  tr(XY)  503.503.101 

AJCOH 

28 

994951 

101  |F(K>1)  102.102.103 

AJCOH 

29 

000054 

102  IHXI 

AJCDH 

39 

940056 

103  AXxAJ(i) 

AJCOH 

31 

900060 

0■J>QO*4X 

AJCDH 

32 

990062 

50d)>’SIN  (OJ) 

AJCOH 

33 

•90066 

COd)xCOS  (OJI 

AJCOH 

34 

•00072 

cikatan  (Tax. AX) 

AJCDH 

35 

994076 

C3»C0S  (Cl) 

AJCDH 

36 

400100 

C4XC1-0J 

AJCOH 

37 

900102 

IF(MM>  402.401.402 

AJCDH 

38 

900104 

401  C4X.C4 

AJCOH 

39 

990195 

402  CSxSIN  (C4) 

AJCDH 

40 

000107 

C6«COS  IC4) 

AJCDH 

41 

990111  > 

ClxOB/CS 

AJCOH 

42 

090113 

XJdlxCl*C6 

AJCDH 

43 

990116 

YJ(l)xCl«C5 

AJCDH 

44 

•00i20 

1F(K-1)  242.242.243 

AJCDH 

45 

•90122 

242  61((d)x(Y3d)xx3.YMxx3)/3.0*F 

AJCDH 

46 

999110 

4IKd)x(YJd).YM)*F 

AJCDH 

47 

990133 

FLKd)»XJdl-XM 

AJCOH 

48 

400136 

GO  TO  S04 

AJCOH 

49 

•••136 

243  ail<:dlx(Y^dl**3.YJ(I>l)*«3)/3.0*F 

AJCDH 

so 

•90144 

A|Kd)x(YJd).fJ(I‘.l>)*F 

AJCDH 

51 

•••147 

FLKd)x*JlI)-*J(I-l) 

AJCDH 

52 

990IS2 

S64  KxK.l 

ajcuh 

53 

090154 

503  IFd.NN)  502.501.501 

AJLUH 

S4 

AJCOd 


RUN  VERSION  2.3 

— PSR  LEVEL  332— 

•ools; 

502 

ir(HHI  506.S0S.S06 

000160 

SOS 

rj«rj-i. 

000162^  . 

GO  TO  SOI 

000163 

506 

rjiFj*! ,0 

000165 

501 

CONTINUE 

000170 

IFdl-l)  301.301  .302 

000172 

301 

IF(NH1  601.302.601 

000173 

601 

LL  = NN 

000175 

00  303  I>1.NN 

000176 

COC(ll>CJ(LL) 

000200 

IF<LL-1)  303.303.305 

000203 

305 

LL»LL-1 

000205 

303 

CONTINUE 

0002'-a 

302 

IP»K.IN-2 

000213 

610 

DO  266  L>lh.lP 

000215 

Ei>o.a 

000216 

E2=0.0 

000216 

e3>o.o 

000217 

£6=0.0 

000220 

EEs’XJID-XH 

000223 

IM=L 

000223 

1F<HM)  202.203.202 

000225 

203 

££»-££ 

000226 

202 

00  265 

000230 

Cl  *XJ(L)-X.J<I) 

000233 

CS=FCK(II 

000236 

IFiXM)  207.206.207 

000236 

208 

Cl»-Cl 

000237 

cs«-cs 

000261 

207 

C2=cs/eix(ii 

000263 

C3»(CS.3.0*C1)»CS*3.0»CJ»C1 

000251 

E6=£6.C2 

O002S3 

C6=2.0«Cl*CS 

000255 

E1»EI.C3*C2 

000260 

E2*E2‘C6*C2 

000263 

265 

£3«E3*CS/XIK(II 

000271 

IF<HH)  206.205.206 

000272 

205 

1N=IM-1 

000276 

206 

Cl!:CO<LI*CO<Ll 

000276 

C2=50(Lt«YJ<L) 

000300 

OA(LI  =CI/3.0»£1/EP*(C2»E6-CO(L>*E2>/EP»C2 

000312 

O0(L)  =C1/GM»E3»1 .2 

000317 

Cl=(EE»CO(U)-YJ(Ll*SO(L))/YM 

000323 

CC (LI =CI/EP»1 .327/F»Cl 

000336 

266 

(]JIL)=QX(LI  .QaiLMOCiL) 

000336 

RETURN 

000337 

ENO 

AJCOh 

55 

AJCOM 

56 

AJCOh 

.,..51  . 

ajcoh 

sa 

AJCOH 

59 

ajCom 

..  . 60 

ajCoh 

61 

AJCOH 

62 

AJCOH  . 

..  63  . 

AJCOh 

66 

AJCOh 

65 

ajCoh 

66 

ajCdh 

67 

AJCOH 

68 

AJCDh 

..  69.. 

AJCOH 

70 

AJCOh 

71 

AJCOH 

. 72 

AJCOh 

73 

AJCOH 

76 

AJCOH. 

. . .X5. 

AJCUh 

76 

AJCDH 

77 

AJCDh 

78 

AJCOh 

79 

AJCOH 

80 

AJCOm 

......Bl 

AJ&Oh 

82 

ajCDm 

83 

ajCOh 

86 

AJCOH 

85 

AJCOH 

86 

AJCDh 

87 

AJCOH 

88 

AJCOh 

89 

AJCOH 

90 

AJCOH 

91 

AJCDh 

92 

AJCOh 

93 

AJCOH 

9-. 

AJCOH 

95 

AJCOh 

96 

AJCOH 

97 

AJCOh 

98 

AjCOh 

99 

AJCOm 

100 

ajCOh 

101 

270 
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SUBROUTINE  TOUR 

FOUH 

C 

RCOUIRES  2*N«1  POINTS  F(I) 

FOUR 

c 

POINTS  CORfiCSPONO  TO  

FOUR 

c 

OUTPUT  AMI  .6(11  REFER  TO  COSINE  AND  SINE  OF  (t-l)«THETA 

FOUR 

040002 

common  PJtSOI  .CJcSOt  .CiJISOt  .AJtSO)  .A  J(S0)  .TJISOI  * 

FOUR 

lAdSOO)  .8(1500)  .0(30401 

MATH 

440002 

COMMON  OO.BR.eA.r J.CC.TH.NN.N.FNJ.CP.TAN.RR.GM.FtAM.MNiII.H 

FOUR 

440002 

COHHON/CU/NHC.  INT  .HMM.  tPLT.FNl  >Fn2.PI!)1  • ROl  .P02.R  T 1 <RT2«RM1  .RH2  >F1  > 

MATO 

1T1.T2.F1 •F2,PF|.RF2.YCl.TE2.0EI.OE2tPOSl«POS2.ANO 

MATO 

440002 

C>l.4 

four 

040003 

S<0.0 

FOUR 

400006 

M*IFI«(Fl)»NMC.NHC/2 

MATO 

400010 

M«m.1 

FOUR 

440012 

NA»N«NHC 

MATO 

400016 

N2»N4-1 

MATO 

440015 

T1«2./NA 

MATO 

400020 

T2«T1»3. 1615927 

FOUR 

000021 

Cl'COS  (12) 

FOUR 

040023 

S1»S1N  (T2I 

FOUR 

000026 

00  7 tPil.Nl 

FOUR 

000027 

U1>0.0 

FOUR 

400030 

U2«0.0 

FOUR 

400031 

00  3 1-1. N2 

FOUR 

400032 

J»N2-I *2 

FOUR 

400036 

U1*0(JI ♦2.fl6C»Ul-U2 

FOUR 

400062 

U2:ul 

FOUR 

000463 

3 UI*U1 

FOUR 

400067 

A(IP)«T1«(G(1)*C»U1-U2» 

FOUR 

400456 

eiIPt>T|*S«Ul 

FOUR 

4040S4 

AA»A(IPt«C-0(IP)»S 

FOUR 

000062 

80«A(IP|«S«0(IP»»C 

TOOK 

400065 

AdPliAA 

FOUR 

440067 

8dP)»88 

four 

404071 

fl«CI»C-Sl»S 

FOUR 

444476 

S»C1»S.S1»C 

FOUR 

440077 

7 C*0 

FOUR 

000103 

PETURN 

FOUH 

004103 

ENO 

FOUR 

S 

3 

4 

5 

6 
6 
8 
8 
4 
4 

10 

>0 

11 
11 

12 

13 

15 

16 

17 

18 

14 
20 
21 
22 
23 
26 

25 

26 

27 

28 

29 

30 

31 

32 

33 
36 

35 

36 


.SUaBOUTINC  .CALCJ IC 1 . C2 1 C3  .06 ) 


444407 

ir(C3l  260. 231. 261 

440011 

data  EHCA03/6H  lb./ 

8404U 

261 

iricu  230.218.218 

440013 

230 

IF(A8S  (Cl)-C3»  220. 

440017 

231 

IF(Cl)  210,21(1,218 

jt40Q21 

2.60. 

-IflCLl  219,210.262 

440023 

262 

C3—C3 

440026 

1F(C1-C3I  219.218.218 

JI49a26 

218 

IF(C2-CU  219.220.220 

440030 

220 

C6-I.C 

440031 

00  TO  221 

444032 

_219 

COaO.O 

480433 

221 

RETURN 

840036 

ENO 

XAIXJ 2._ 

C8LCJ  3 

CAI.C3  6 

CALCJ S_ 

calCu  « 

C8LCj  7 

caUj. JL. 

CAI,CJ  4 

CALCj  10 

CALCJ  1 1 

CALCU  12 

CALCJ  13 

CALCj.  . 14.. 

calCj  is 

CALOJ  It 
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RUN  VERSION  2.3  — PSR  LEVEL  332 


SUBROUTINE  Pl7 <X, V.Z.NPTS) 

PLT 

2 

oeooeT 

OIHENSION  V (30001  .X (30001  .ZOOOOl.AXX  (6t  <AYY(6I  tOZZ (6 > • tLABXiS)  « 

NAtll 

7 

1 ILAaY(S)  (HCAOSOt 

PLT 

6 

009007 

CONMON  PJ(50) iCJ (501.03(501 .AU(5e>  tXJ(SO) .YJ(50t  * 

HAtlt 

0 

lAdSOOl, 5(1500). 0(3000* 

MAY  11 

9 

000007 

COMMON  DO,eR.a*<f J.CCiYH.NN.h.rNJ.EP.TAN.RB.GM.r (XH.MNitl.H 

PLT 

6 

000007 

COMMON  QA (SOI lOe (50) «0C(59I  ,Qa1 (50) .051 (501 .OCl iSOI <0A2(50 1 .082 (SO 

PLT 

7 

1I<0C2(50)  .IM.IP 

PLT 

a 

000007 

COMMON  WT (501 iMEAOl (61 .HCAOZCO) 

MAYI 

11 

000007 

CATA  (ILAeX(JI ,J>l,3i/10M  CALCUL.lOHATinN  POlN.ZHT  / 

PLT 

10 

000007 

DATA  (IlABT(JI ,J>l,3l/10HTANCeNTt*L>lOH  ERROR  (1N.2H.)/ 

PLt 

u 

000007 

DATA  1LAB2/10NL0A0  (L3.I/ 

PLt 

12 

000007 

DATA  (HEAOSd)  iI*t.2)/10HTANC.  roRC«6HE  ■ / 

PLt 

13 

000007 

IN«S 

PLt 

16 

000007 

10>6 

PLt 

IS 

eooolo 

ICAL>22 

PLt 

16 

000012 

CALL  PLOtSdBUF.AOOO.ICALI 

PLt 

17 

ooooto 

CALL  PLOT  (6.  ,6.5. -.31 

PLt 

IB 

000017 

CALL  PLOT (•2.»-6.,3) 

PLt 

19 

000022 

call  QAShPt(-2.,6.,.2SI 

PLt 

20 

000025 

CALL  SCALE (X.5.,NPTS)*1) 

PLt 

21 

000032 

Y(MPTS.1)*0. 

PLt 

22 

000036 

00  10  Xal.NPTS 

PLt 

23 

000000 

10  Y(K)s-Y(K) 

PLt 

26 

000003 

call  SCALE (Y.6.,NPTS.1.»1) 

PLt 

26 

000050 

Y (NPTS.ai (NPTS.3) 

PLt 

26 

000056 

call  scale (2<3.tNPTS.*l) 

PLt 

27 

000061 

AXX  d )>X (NPTS.l ) 

PLt 

20 

000065 

AXX(2l*X (NPTS*2) 

PLT 

29 

000067 

ATY<;)«Y(NPTS.l) 

PLt 

30 

000071 

AYT<2)=Y(NPT£.2) 

PLt 

31 

000073 

A2Zd)»2(NPTS.|) 

PLt 

32 

00007<. 

AZ2 (2)«7 (NPTS-2) 

PLI 

33 

000077 

call  AxiS(0..0.,tL*8X.-22,5..O..AXXd)  .AXX(2)  I 

PLT 

36 

000106 

call  AX1S<0..0., ILAeT«22.6..40.,0..AYY(2) ) 

PLT 

35 

000116 

call  FLtNE (X.T.-NPT3, 1.1.3) 

PLt 

36 

000125 

call  PLOT(0.i-6.,-3| 

PLT 

37 

000130 

call  AxiSlO.f O.f 1LA8X,-22.  5. ,0. . AXX (1 ) • AIx ( 2) > 

PLT 

30 

000160 

call  AxTS(0..0.f  lLABZ.t0.3..90.,A7Zd)  ,AZZ(2I  ) 

PLt 

39 

OOOISO 

CALL  PLINEiXtZ.'NPTStl.l.ll) 

PLt 

60 

000157 

call  Plot (.3. 5, 5,-3) 

PLt 

61 

000162 

call  stmsol (o.,o..<i6.HeAot,o..60i 

PLt 

62 

000166 

call  symbol  ('),.-.2S..)6.Hexo2.0..60) 

PLt 

63 

000172 

CALL  symbol  (0.  t-.S..16,r<EA03.0.,16) 

PLt 

66 

000176 

call  number  (4‘)9.,<)69.,.16,wT,0..?) 

PLt 

65 

000202 

CALL  SYMBOL(465,,9‘)9...l6,CMeA03.0.»6) 

PLt 

66 

000206 

CALL  PLOT (6. .-9., -31 

PLT 

67 

090211 

CALL  0AShPTI0..9.,.25) 

PLt 

60 

000216 

Call  plot (o.<o.«999i 

PLT 

69 

000217 

CO  20  Kxl.NPTS 

plt 

so 

000223 

20  Y<K|»-Y(X) 

plt 

SI 

000226 

return 

plt 

52 

000227 

ENO 

PLt 

S3 

NOTE  TO  USERS  OF  COMPUTER  PROGPAK 


The  computer  program  for  the  prediction  of  gear  mesh 
excitation  spectra  has  the  ability  to  plot  tooth  meshing 
error.  This  meshing  error  can  be  plotted  if,  and  only 
if,  a CALCOMP  plotter  is  a part  of  the  system's  hardware. 
If  this  plotting  hardware  is  unavailable,  the  plotting 
subroutine  (subroutine  PLT  (X,Y,Z,NPT5) ) must  be 
bypassed.  This  is  done  by  placing  a zero  in  column  25 
on  card  2 of  the  input  deck. 
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RUN  VERSION  20  < 'PSR  LEVEL  332— 


SUBROUTINE  SPECT 

MAYO 

1* 

-C0«0«2 

fllMCNSION  6N(3oeO><RR(3000**rR(200l  «QK{200)  •KK(2*0)  tGK«((200> 

MAYlL 

10 

0*0002 

COMMON  PJ(50I fCJlSOl tOJ(SOI>AJ(5S>  «XJ(50t iTUlSOlt 

NAVll 

11 

1« (1500) *6(15001 <6(30001 

MATH 

12 

*00002 

COMMON  00teR<8«<FJ<CCtYHtNNfN<rNJteP<TANtRB<GH<F<XM.HNf II,N 

OEARC 

1 

*00002 

COHHON/GU/NMCtlNT<MHM<IPLT<FNl.rN2<Rnl  iR01<R02tNTl  •AT2iiRH1  <RH2tF’I< 

HAY  11 

lA 

ITl  tT2tri<r2<RFl<RF2>YEltVC2<GEl<OE2<POSl<POS2*Alid 

MAYll 

15 

000002 

— 

MA«.5 

MAYll 

16 

0*0*03 

NM*6 

MAYll 

17 

c 

HMS>1iHS«SP£E0  or  driving  GEAR  IN  RPH 

MAYll 

10 

c 

NMS*2tWS*SPEE0  OF  DRIVEN  GEAR  IN  RPM 

MAYll 

19 

0*000* 

RCAOfNRilOOl  NWS. MS 

MAYll 

20 

00001* 

MS«wS*G. 28/60. 

MATH 

21 

-000016 

rMarNI«WS/6.2e 

MATH 

zz. 

0*0020 

IF(NWS.Ea.2)  FMaFN2*«S/6.2a 

MATH 

23 

*0002* 

VRITC(NWtllOI  FM 

math 

2* 

0*0032 

rcarH*N/2. 

math 

25 

00003S 

NTaN»NMC 

HAYit 

26 

000037 

TRaNMC/FM 

MATH 

27 

*000*^1 

N»1./FM/N 

MATH 

25 

0*00**. 

FOal./TR 

MATH 

29 

0000*0 

M-NT/2* 

MATH 

30 

0*0051 

SMaH 

HATH 

31 

000052 

TMA.YaM^H 

MAYll 

32 

OOOOSS 

BEal./TMAX 

HATH 

33 

OOOOST 

MHITC(NW<'.15) 

MATH 

3* 

0*0002 

WRIT£<Nm.1201  FC.FO.ae 

HATH 

35 

*0007* 

WRITE<NW.I25) 

MATH 

36 

0*0100 

VRITEINW.UO)  H.TR.TMAX.SM 

MATH 

37 

00011* 

SUH-O. 

math 

30 

OOOllS 

DO  10  lal.NT 

MATH 

39 

000117 

10  SUMaSUM.Gd) 

MATH 

*0 

000123 

S*aSUN/NT 

MAYll 

*1 

00012S 

DO  20  lal.NT 

MAYll 

*2 

000127 

CNdlaGdI.'SA 

HATH 

*3 

000132 

20  CONTINUE 

HATH 

** 

00013* 

NNaM.I 

HATH 

*5 

000130 

DO  30  lal.HN 

HATH 

*6 

000137 

lRaI-1 

HATH 

*7 

0001*0 

FRU)«1R»FC/S»( 

MATH 

*8 

0001** 

CC*1,/(NT-1R) 

math 

*9 

0001*7 

RRdlaO. 

HATl  1 

50 

OOOISI 

DO  25  Jal.NT 

MATH 

SI 

c 

fiR(I)*fltl-l) 

HATH 

52 

*00153 

1F( (J*IB).GT,NT)  go  to  30 

MAYll 

53 

0001S7 

25  RR(I|aaN<J)aGN(J*IRl *RR(l) 

MAYll 

5* 

*00165 

30  RN(()aRR<t|*Cr. 

MATH 

55 

000172 

RS*M-I 

MAYll 

56 

00017* 

DO  *0  Kal.RH 

MAYll 

57 

000175 

KK (K)»K-1 

HATH 

50 

0*0177 

GK(K)aRR(l) «RR<MR)»(-1.»»*NK(K) 

MAYll 

59 

000206 

SSSaO. 

MAYll 

60 

000207 

DO  35  JRal.HS 

MAYl* 

2 

000211 

JJaJK*! 

MATl* 

3 
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ftUN  VERSION  20  — PS«  tEVCL  332 


SPECT 


3 


000212 

4A>3, 1<.I6«JK»KK(K)  /SM 

MATH 

62 

0C0217 

35  SSS=SSS*2.*fi0(jJ)*C0S«AAl 

NAYll 

63 

000230 

<•0  GKl»<l»(Gt<(R)*S5S)*2.*H 

MAYll 

64 

000230 

CKK(1)b.5»OK(1)*.S*OK<2» 

HATH 

65 

0002<>1 

GKK (MM) «.S»GK (Ml (MMI 

MAYll 

66 

0002<<6 

00  50  LU=2.M 

HATH 

67 

- „ 

0002<t7 

CKK  ILL)  ».2S»GK  (l.L-1 1 ♦.5*OK  (LU)  ♦♦25*GK  (LU*!  ) 

MAYll 

6b 

000255 

50  continue 

MAYll 

60 

000260 

kRITEINWi 130) 

MAYll 

70 

0«026<i 

«|RITE(NM<140) 

MATH 

71 

000270 

00  00  1=1 »HM 

MAY  1 1 

72 

000272 

SKMiKK ( I ) ‘N/ (2 .•5M) 

JUNE7 

6 

s 

000277 

WRI TE (NM. 1S0)KK ( I ) .FR( 1) ^GK ( t ) .GKK 111 .SKH 

JUNE? 

r 

000314 

60  CONTINUE 

math 

74 

000317 

100  format (I5>E13. 5) 

MATH 

75 

000317 

no  FORMAT(/l*26MHEShING  FREQUENCY  IN  CPS  «.£13.5) 

HATH 

76 

■'-1 

000317 

1 15  FORMAT  (/7A2HFC  J n2HF01  IA2mI1£) 

MATH 

77 

000317 

120  format (flE13. 5) 

MAYl., 

78 

000317 

125  format  (/7*  lHMl2A2HTRm4MTMA»R*2wSM) 

MATH 

7y 

000317 

130  F0RMAT(/l«31HP0WfR  SPECTRAU  DENSITY  FUNCTION) 

MAT  1 1 

ao 

000317 

no  format  (/6A,  lMM6A2HFfilH2MGKllA3MGAK10*2MKM) 

JUNE? 

a 

000317 

ISO  FORMAT(I7»3E13,SiF13.5> 

JUNE? 

'0 

. * 

000317 

return 

MATH 

ea 

000317 

END 

MAYll 

84 

,1 

--1 


1 


i 

i 
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APPENDIX  D 


LISTING  OF  DYNAMIC  GEAR  TOOTH  FORCE  ANALYSES  - 

TORRP  (R-32) 


- r.  R3?amain . oooionoo 

OOOPOOOO 

ponGPftM  T0P«P  oooionoo 

— nPchaniCaL 'TFCHNOLOGY  incorporated*  lATHAM,  NEW  YORK  00040000 

AVLARS  COPY  NO. 1 . 1-20-70.  RHB  OOOSOOOO 

. THIS  PROGRAM  PEOUIRES  SUBROUTINES  PL ANS T , MA T I N . 8L00P . CO  I V * CD  I V2.  OOO-SOOOO 

PANGF.AMPf.CACO.CSUB.CNPY  00070000 

DIMENSION  AXY (20) .RXY (201  .LEX(20)  ' OOOGOOOO 

DIMENSION  BRAT (2) .TEMPS(?) .LMC(20) .LTW (20) .LR5T (20)  OOOROOOO 

common  TBR (2.2) ,THE(2,2) .TPR (2,2) ,TPF (2,2) ,TFSPR(2,2) .TFSPE (2.2) , OOlOOOOO 

1 TFPRR<2.2) .TFPPE (2.2) ,TTPCR(2.2) , TTPCE ( 2 . 2 ) , TTGRR ( 2 . 2 ) .TTORF  (2,2)  00110000 
COMMON  RIP (200) .OST (200) ,OHS (200 ) ,DIN (200 ) , PCB (SO) . LB (SO ) ,ODT (200) 00 120000 

1 ,«K  (SO) .LFC (2) ,OS(2) .RW(2) . P IP ( 2) , PMS ( 2 ) . PN (2 ) , SS ( 2 ) , SW ( 2 ) , SR ( 2 ) , 00  1300  00 

2 ST (2) ,LBP  <20 ) .LRS(20) .CCOM(200) , AXY] , A X Y2 , BX Y1 , BX Y2 , TLP ( 200 ) . 0014  00  00 

3 TLE(?00).THP(200).TriE(200).TRP<200).TRE(200) ,TRR1 (200)  OOlSOOOO 

COMMON  A (7,7) .B (7,2) ,LS(20) .RP(20) .RG(20) .SG(20) .TRR2(200) , - OOlGOOOO 

1 TREl  (200) ,ThE1  (200) ,TLE1  (200) ,TaE2(200) .TTFR(20) ,TTFE(20) , 00170000 

2 PSP (2) ,THR1 (200) .TLRl (200) .THfl2(200) ,TLR2(200) ,THE2(200) , OOlROOOO 

3 TLf2 (200) ,RL (200) ,PCP(2) .PftP(P)  ,OmP(50)  ...  00190000 

COMMON  IT.  K4,L4,M0IAG.FRQ2.ANGR, ANGE.TQR.TOE  ,J,NS  , Ml , NW , NR , NPLG0020 00 00 

COMMON  K1,K2.K3,K<J,L1,L2»L3,L9»LG(10) .IBRAN  00210000 

...G  --NK  refers  TO  INPUT  UNIT - 00220000 

C NW  REFERS  TO  OUTPUT  UNIT  00230000 

NR=S  00240000 

Nw  = 6 ... OO2S0000 

m0TW=G  00270000 

"HKsO  O02BO00O 

NOSO»0  ■ — — 00290000 

IE.XP*0  00300000 

200  R£AO(NR.100)  00310000 

PE4O(Nr;,101)-NS,N8,NBR«NMPC.,.l.NP»NSRO,NPLG,KDlAf.- 0 0 3200  00 

IOP=0  00330000 

FFT-0 . 0 00340000 

CLY  = 0.  r 00350000 

nxY=o.  00340000 

MPDL  = -1  00370000 

-IF  (MDIAG  -2)-3021 ,3020,3021 — OO3HO0O0 

30P0  mpol  a 0 00390000 

G070.3025  00400000 

— 3021  IF(MniAG  *2)  3025,3022,3025 00410000 

3022  Mpoi.  = 1 00420000 

3025  HEAD  (NR, 102) GM.OENST  00430000 

-WRITE(NW,100)  004400  0 0 

’((RITE  (NW,  103)  00450000 

HRITEIWW, .06)NS.NB.NBR,NMP6,INP,NSRG,NPLO  00450000 

-•-2022-WPITE!Nw.l35)  C-M.OENST  - 0fi4y<!000 

CEnST=DFN5T/386. 059  00480000 

:e(IEXP)  2023,2024,2025  00490000 

— 2023  ICXFa-IExP 00500000 

4INT=1 ,/10.**IEXP  00510000 

60  TC  2026  00520000 

— ■ •2424- AINTal.  — 00530000 

•GO  70  2026  00540000 

202S  AINT..10,*«IEXP  00550000 

- ■202(>  WR!TF(NW,10T) — _ 00560000 

DO  201  J=1,N5  00570000 

Rf AO(NR,190)NSTA,RIP(J) ,flL(J) ,OST(J) ,DMS(J) ,DIN(J) ,CCOM(J)  O06R00O0 

IF(NSTA-J)  2000,2001,2000 - , . 00690000 

2000  WPITF(NW,191)  00600000 

2001  wR.Te(NW,l08)NSTA,RIP (U) ,RL( J> ,OST(vJ) .DHSIJ) ,DIN(J)  ,CCOM( J)  00610009 
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• a 


?01  RlP(J>=RlP(J)/3e6.069  oo6?enoo 

■ LPX  ( 1 ) = KS*2  - - - - - OO^.'^OOOO 

LHfn=NS*?  006*0000 

LFC(n=NS«2  006^0000 

LOUT  =0  - - 00660000 

LF=0  00670000 

KL=0  006O0000 

LI  = 0 — OO6'J0O00  ^ 

LF!P(n=NS*?  00700000 

LPS<n=NS*2  00710000 

LSI!)  =NS*?  — - 00720000 

LR(1)-N5*2  00730000 

LFT=0  0074000C 

KUT  = C ■ - 007S0000 

LIT=0  00760000 

LTW(1)=NS*2  00770000 

„ IF(NF)  2031  t203l. 203 - • - --  00780000 

203  WRITE (NW. 109)  00790000 

no  20*  j=i.NR  ooaooooo 

, READINB, 190 )LR < J) ,eK< J) .BCB<0) »OMP( J)  — - 00810000 

20*  WRTTF  (NIU.  108)L8  ( J)  <8K  ( J)  .ecdlj)  .D)«P(  J)  00820000 

2031  IF (MSPU) 206.206,2032  00830000 

-2032  WOITF  (ua.ll2)  - - 008*0000 

WRITF(RW,U3)  00860000 

00  208  I=1.MSRG  00660000 

— REaniNR.loniLSd)  .RP(I>.R6<I).S6(n  00870000 

205  WPITF (NW. 106)LS ( I ) .RP (I) .P(?(I) *561 1)  00880000 

206  IF(NPl.r,)21  0,210.209  00890000 

-2C9  WRITF  (WW,  I 1*)  00900000 

no  212  J=1,NPLG  00910000 

READ  (MR, 190)  teClJ) ,PN(J) .RStJ) »RW(J)  00920000 

WPITF  (NW.  ! 27) . 00930000 

WPITF  (Nv/,108)  LEC (J) .PN(J) .RS(J) .RW<0)  OO9*00Ol 

PE»0  (UR, 190)  IPL.PMS < J) .PSP(J) »PIPt J) *PRP(J) »PCP( J)  00960000 

WRITE  (NW,12fl)  ■ 00960000 

WRITE  (Nw.lOfl)  IPL.PMSU) ,PSP(J! .PIPrj) *PnP(J) .PCP(J>  00970000 

READ  (NR, 130)  IPU,SS(J).SR<J).SW(J).5T(3)  00980000 

WRITE  (NW,129)  - 00990000 

WRITE  (Nw.131)  !PL.SS<J),S«(J)»5«(J).ST(J)  OlOOOOOO 

PSP(J)  =PSP(J) /3H6.06a  01010000 

PCP  (J)  sPCP  (J) /386.069 - - - 01020000 

PRP(J)*PRP(J)/3fl6.069  01030000 

PIP(J)=PIP(J)/386.069  010*0000 

-212  PMS(J)sPMS(J)/366.069  01060000 

210  IP(NRR1  2110,2130,21*  01060000 

21*  WRITE (NW, 118)  01070000 

-00  216  J=1,N8R  ■. 01080000 

PEAO<NR,101)  L8R(  J)  .L8SU)  •LHC(J)  01090000 

215  WRITE (NW, 1 19)  LRR ( J) ,L3S ( J)  01100000 

-21-30  E6  = NS-1  01  1 10000 

00  216  J=1,K5  01120000 

Cl-RL'J)  01130000 

OP^DSTIJ)  - --  011*0000 

lElCl)  217,216,217  01160000 

217  IE(C2)  218,216,218  01160000 

— 2-18  C5*DIN(J)«OIN(J) _ 01170000 

C*=C6»C5  01180000 

C6=DMS(J)*DMS(J)  01190000 

C8=0.09817*77»(C2«**-C*> - 01200000 

C3=C8*GM  01210000 

C*a0.09817*77«OENST*<C6*C6-C*)  01220000 


nnT(3)=Cl/C3  01230000 

■ 0M6(J)  S Cl»SClRT  (C*/C3> - - 012*0000 

nrN(j)  = S0RT(C3«C4)  oiesoooo 

216  CONTINUE  01260000 

no  601  lEHH  »NMPG— - ■ • - 01270000 

FF0=:0.0  01280000 

AXY1=0.0  01290000 

8XV1-0.0 — --  ■ - — ■ 0 1300000 
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4009 


4010 

4011 
-40 1 2 


2010 


-2011- 

2013 

2014 


2017 

-3019 


2020 

599 


5020 


502 


5021 

6022 


227 

-22H 


2270 


4X72=0.0 

PX72=0.0 

MAX  =1  - • 

lEX  = 1 

PEaO  <NR,190)  IT.TEl .TE2,TE3.TE4,TE5.TE6,NEX 

'FE0  = TF1 

CXY=TF2 
nxy=TF3 

IF  (^FX)  20l3.40l0f4010 

IF(IEX-l)  4012. 4011.4012 
MAX  = NEX 

00  2C11  I = 1.NSRE 

IF(IT-L3(I))  2011.2010.2011 
AX7(IFX)  = TE2 

-flXY(IFX>  * TF3  

LEX(IEX)  = IT 
WRITE  (NW.I94) 

V-PITE  (MW,  in«)  IT.TEl  .TE2.TE3 

lEX  = lEX  *1 

IF  (lEX-  PAX)  4009,4009,2020 

COMTINOE  - — - - 

IF(NPLG)  3019,3019.2013 
00  2017  I=1,NPLG 

IFdT-LECd))  2017,2014.2017- 

WPT7F (NW, 195) 

AXY1=TE2 

flX''l=TE3  — — --  • 

4XY2=TE4 

HXY2=TE5 

WPITE(NW,108) IT.TEl ,762, TE3,T£4,TE5  ■— 

GO  TO  2020 
CONTINUE 

WRITE (NW. 192)  

IFdNP)  504,200,504 
FRO=6.2031953«FFQ 

IF(FPO)  501,501,599 

FR52sFR0»FRQ 
ME  X = 1 

BRAT  d ) =l .0 
PRAT  (2) =0.0 

IMPANi'O 

Ml=l 

-ANOP  = 0.0  ■ 

IF(IOP)  5021, 5022, 50C1 
ANGRsAINT 

ANr,E  = 0.0 , - 

ANGE=0.0  , . ■ ■ 

TOR=0,0 

-TOF  = 0.0  - ' 

A13R=0.0 
A13E=0.0 
Kiri 

••K?=l  - 

»<4=1  ; , 

K5=fJS,2  '■ 

KVrl  ■ 

L1=LRR(1) 

L2=LP '1  / 

KT=1  - - 

L3  = L.Sd  ) 

L4  -I  rC . 1 1 

L'’  = L5d)  - - - 

FO  TO  <227,270» iMl 
ANGRi A IN  f 

Url • - — - 

I'CiTwt  227hr22  I''.P27  ■) 
ri.YWd) 


P.77 


01310000 
01320000 
01330000 
01340000 
01350000 
01340000 
01370000 
013^0000 
01390000 
01400000 
01410000 
01420000 
01430000 
01440000 
01450000 
01440000 
01470000 
01480000 
01490000 
01500000 
01510000 
01520000 
01630000 
- 01540000 
01550000 
01540000 
01570000 
01580000 
01590000 
01600000 
01410000 
01620000 
01430000 
01640000 
016SCOOO 

- 0164000!) 
01670000 
01650000 

- 0149006C 
01760000 
01710000 
01726000 
0173fi')C  ) 
01  740().-:t 

. 01750000 

01740000 
01770000 

- olveoof 0 
«i79onoo 
C16COO0O 
oiei ncoo 
01623000 
01630000 
OlftAOD'IO 
oiHiomo 
01040000 
01970000 
01640000 
01490000 
01900000 
01910000 
01920000 
019  JOOOi) 
0)940000 
0 1 950000 
01940000 
0 1 97  )Q0() 
0 1 9 3000  0 
01990000 


KLT=1 

??75  IF(K)PP)  ?2flO.2a«0.?279 

-?27«»  l.F=LBR  ( 1 ) - — • 

LOUTzI.mc  ( 1 ) 

IF(LOUT)  5??7, 2278.2278 

-2277  L0UT=-L0UT  . 

2276  1,1  = 1 
Kt=l 

••2260  IF(IOP)  2262.2261.2282 - 

2261  IF(J-LF)  2*9.2300.249 

2300  call  6LOOP(LBR.LeS.LMC,LI.KL.LF,NBR,LIT.KLT.LFT) 
60  TO  249  - 

2262  IF(J-Ll)  231.230.231 

230  IF(Ml-i)  232.232.234 

232  TLlR=TOn 
4L1R=ANGR 

TL1F  = T0E  

AL1F=AN6F 
fi62  ANGR  = AINT 

TOO=0. 

706=0. 

*136=0. 

23S  K5=LHS(Kn 
K1=*<1.1 

IF(NPP-KI)  237. 23b. 236 

— 236  L1=LHR  (K1  > 

60  TO  249 
237  L1=NS*2 

60  TO  249  - — 

231  IF(j-k6)  249.246,249 

240  AAl  = (ANOR»ANGR.ANGE»ANGe) 

— — • — ■■IpPAb'^^O  . . 

AA?=  SQRT(AAl) 

AAS  =AL1««ANGR  .AL1E*ANGE 

AA3  =(Al.lP*Al.lfl  ,.ALlF.*ALlf  > - 

AA4=  S0RT(AA3) 

TF  <AA2-',  .oe-7*AA4)  242,241.241 

— 241-aap  =AA5/aa1  

AAF  = (ANGR4AHE-  AN6E*AL1R)  /AAl 
TFl  = TOR 
TFP  = TLIR 

TF*  = TLIF 
ANGRi  ALIP 

ANGF  = ALIF  - • • — — 

K7  = K6 
K6=KS-] 

•• I6(Hl-2)  2*20. 2410. 2.20  - • ■ •• 

2'>10  irdRRAT)  2411 ,2420,  411 
?4:<1  Tt(I»PAT-2)  2420.2412,2420 

2*12  HPAT<n=4AP  -•  - - -- 

BPAT (2) =A4F 
i.il3  TPPAT  = 1 

--  60  TO  2420  

2*2  AAP  = A4S/  AA3 

AAf  = 1 AL 1 P'Af.C'E-  Al.U'ANGR)  / AA3 

- — TFl  = TL13  - * 

TE2  = TOP 
TF3  =TLlf 

K7  = l 
P.l;KP-l 

- If  If.  1-2)  ?420.24  4 0.f.-20 

7 4 40  irdPpnT;  24  4 1 , 24  2M. . 24  4 1 
2*'Vj  I'  iIOPmT  — i'l  2— lT.c4l2.c4i3 


02000000 

02010000 

02020000 

020.30000 

02040000 

02060000 

02060000 

02070000 

02080000 

02090000 

02100000 

02110000 

02120000 

02130000 

02140000 

02150000 

02160000 

02170000 

_ 02180000 

02190000 

02200000 

: O221O000 

O222OO00 

02230000 

02240000 

02260000 

02260000 

02270000 

022HOOOO 

02290000 

. 02300000 

02310000 

02320000 

02330000 

02340000 

O23S0000 

023fiOOCC 

02370000 

02380000 

02390000 

02400000 

02410000 

- 02420000 

02430000 
02440000 
02450000 
- --  - - 02460000 

02470000 
02480000 

_ _ ...  02490000 

02500000 

02510000 

02520000 

02530000 

02540000 

02550000 

02560000 

02570000 

, 02560000 

02590000 

02600000 

■ -•-.  02MOOOO 

02020000 

02630000 

02640000 

02050000 

02660000 

_ . — ...  02670000 

O2-.8OJ00 
0 r -j  - " 5 0 0 


i ?■£! 


4 


TOR  = AAR*  TFI  -AAF*  TF3-*Te2 

TOr  = AAE  ‘TEl  ♦ AAR*TE3  ♦ TEA 

243  00  244  L=K7,K8 

Cl  « Tuft  <L)  

C2  = TLE(L) 

C3  = TH3<L) 

04  = THF(L) 

CS  = THR(Lt 
Ch  = TREIL) 

TLR(LI  = AAR*C1-AAE*C2  

THR(C)  = AAR*C:j-AAE*C4 
TRRtL)  = AAR*C5-AAE*C6 

Tt,F(L)  » AAE*C1*-  AAR*  C2 

THP(L)  » 4AE«C3*  AAR*  C4 

244  TOF'L)  * A4E*C5*  AAR*  C6 

-249-  THf  ( Jl  =AN6E  - ~ 

TLF  <JI =TQe 
THP  (J)  =4N<3R 

TLRUleTOR — 

cn=o.o 

IF(J-L2)  204,283*284 

• 283  Cl«RK(K2)  

COsOMP (K2) 

C2=RCB (K2) 

K2=K2*] 

IF(NR-K2)  261.260,260 

260  L2=L«(K21 

GO  TO  26S 

261  L2=NS*2 
GO  TO  28S 

-284-Cl=0.0  

C2=0.0 

2B5  Ci=Cl-FR02*RIP<J) 

C2aFP0»C2-  - 

TOE=TOE*Cl*ANGE  ,C2*ARGR 
TaR*TOA*Cl*ANGR-C2*AN6E 
IF(J-LOUT)  2853,2650,2853 

2830-  dl=LnR (KL'l > - 

TQR=TOR-TLR< J1 I 
T0F=T0E-TLe(Jl) 

1F<kl-N8R)  2851,2851,2852 

2851  LCuT=LMC(KL) 

TF(LOUT)  2848,2853,2053 

■2848- LOuT=-LOUT ■ - • - - 

GO  TO  2883 

2852  L0UT=NS*2 

-2853,  TRF(J)=TOF — - 

TRR (d) =TOR 

IF(d-NSl  206,287,287 

-287  IF(M1~1)  401.401,40? 

286  lF(d-U3)  286,289.288 
289  C1=RP(K3) 

! C2=RG(K3) 

An=-Cl/C2 
A22=l .O/All 

A21=0.0  — 

A12=-SG(K3)/<C1*C2) 

K3=K3, 1 

IF(K3-NSRG)  - 10l9,10l9rl020 

1019  L3=LS(K3) 

GO  TO  1021 

-1020  L3-NS,2  

1021  IF  <M1-1)  351,351,251 
251  IF  (LFX(NFX»  - d)  351,2899,351 

2*99  IF(M1-2)  290,2900,2900  

'?900  IFdBRAN)  2901,2910,2901 
,2901  IFdPRAT)  2902,2903,2902 

-2902-  WRITF(N»r,l36) — — 

I ISFPsl 

! GO  TO  351 


02700000 

02710000 

02720000 

02730000 

02740000 

02750000 

02740000 

02770000 

02780000 

02790000 

02000000 

02810000 

— 02820000 

02830000 

02840000 

02850000 

02860000 

02670000 

02880000 

02890000 

02900000 

02910000 

02920000 

0293C000 

— 02940000 

02950000 

029CCO00 

02970000 

02980000 

02990000 

03000000 

03010000 

03020000 

03030000 

03040000 

03050000 

03060000 

— 030  70000 

03080000 

03090000 

- - 03100000 

03110000 

03120000 

03130000 

03140000 

03150000 

03160D0P 

0317!1000 

03100000 

03190000 

032300CO 

03210060 

03220000 

03230000 

U3240060 

03250000 

03260000 

03270000 

03280000 

03290000 

03100000 

03310000 

03320000 

•>3330000 

03340000 

03350000 

03360000 

03370000 

03380000 

033O0000 
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;j 

•2903 

I896T-2 

; 

GO  TO  290 

' ' 

2910 

IF ( 1 BRAT) 

■ i 

?91  1 

IBRAT=1 

* ' 

GO  TO  290 

' ' 

291? 

IF(BR4T(? 

•2913 

IF(BR4T(2 

290 

A13R=-4Xy 

A 1 3E  = -FIXY 

f 

IF  (NFX-M. 

2912,.?'3U  .29i2 


1.0)  2902.2913,2902 
2902,290.2902 


^000 


- ?Bc< 
2S<, 
1 09? 
1096 
1 093 


-1  094 
1095 


--255 


256 


3000 


5000,3.51,351  — 

NFX  = NEX*! 
r-rt  TO  351 

IF(J-i,4)  255,254,255  

IF|M0!A6*1)  1092,1092,1095 
IF  (K4-1)  1095,1096.1095 

IF  <W1-1)  1093,1093,1094 

WPITE  (Nw.iai) 

GO  TO  1095 

WHITE  <Nw,lfl2)  

CALL  PLNST  tv,-''! 

GO  TO  503 

-Cl=RL(d) 

1»(C1)  257,256,257 
All=1.0 

-A12  =CCOM(J>  

IF(CO)  3001,3000,3001 
421*0.0 
4??=1 .0 
GO  TO  351 


257- 

256 


3001  TEMP=1.0,  (FRO»CD»A12)<'*2 
TEMPI  rF«0»Cf)«Al2*»2 

— ANGR=&HGR, (A12*TOR,7eMPl«TOE)/TEMP 

ANGEsANGE, (A12*TQE-TEmP1*TQR)/TEI«P 
GO  TO  503 

-C3=FRO»OMs  ( j)  — 

IF (C3-0.0003)  258,256.259 
C4=C3«C.l 

-Alls.1 .0-0.5*C4-  

A22=A1 1 
Al?=OnT ( J) 

-A?l =-C3*OIN(dF  *FRO 

GO  TO  35) 

Ali=  C0S(C3) 

A22=All 
C5»0IN(di *FRO 
C4=  STN(C3) 

-AlPaCA/CS 

A?1=-C4*C5 
Cl sANGF 


259 


03400000 
03410000 
0342C000 
O343CO00 
03440000 
03450000 
03460000 
03470000 
03450000 
03490000 
03500000 
03510000 
03520000 
03530000 
03540000 
03550000 
03560000 
03570000 
035-,.0000 
03590000 
03600000 
03610000 
03620000 
03630000 
-03640000 
C36S0000 
03660000 
03670000 
03650000 
036900 00 
03700000 
03710000 
03720000 
03730000 
037400C0 
03750000 
03760000 
037T0000 
03780000 
03790000 
03500000 
03810000 
03820000 
03630000 
03840000 
03850000 


03660000 

03870000 


351 


503 


*01 

410 

1090 

•1091 


ANGE=An»ANCE*A12*TOE+Al3  E-  — 
T0E=A21*C1  ♦A22»TQE 
C1=ANGR 

. ANFR'A  1 1 '»ANGR*4!,2*T0R,*-1 3R 

TOR-APIFCI  ♦A22*TQR 
AJ3R=0.0 

A13K-0.0  

J- J»1 

IF.;j-NSi  2280,2280,401 

-IF<MniAG»l)  410,410,411 

IF  (NPLG)  1090,1090,1091 
WRITF  <NW,'i»J  ) 

WRITE (NW, 126) 

WI91TE(N/,V01  ) 


411 


00  4 

03 

J7,l  ,1 

NS 

.-TBWl 

(J) 

= T9R 

(d)- — 

THOl 

ij> 

a'lHp 

Id) 

TLPl 

-'J) 

oTLR 

( J) 

- T3F1 

■:  J) 

*TRE 

;d) 

T 

(J) 

iTMF 

( J) 

TLEl 

(J) 

«TLC 

(d) 

03880000 

03890000 

03900000 

03910000 

03920000 

03930000 

03940000 

03950000 

03960000 

03970000 

03980000 

0.3990000 

040000CO 

040)0000 

04020000 

04030000 

04040000 

04050000 

04060000 

04070000 

04050000 

04090000 


280 


k 


u^jm 


f 


I 


IPIMniAO*!)  1030tl030.'403 - - 

10  30  WPITF  <NW,108) J.THHl tJl.THEl IJJ.TLRl (J) .TLEl (J) .TRRl (J) ,TREUJ) 
403  CONTINUE 

00  TO  SC 
402  IRtT=l 

IF(RRAT(n-l.O)  4132.4130.4132 

4130  IF(RPftT<2))  4132.4133.4132 
4132  IPAT=? 

-4133  IF(N0IAG*1)  412.412.413 

412  IFiNPLG)  414.414,415 
414  WPnF(Ni[<,lfl2) 

— 415  WPITF<NH.126) 

■>PITE<N*I,701) 

413  00  404  J=1,NS 

IF(IPAT-2)  40'.O. 4041, 4040 — - 

4040  TLR2(J)»TLR(J) 

THE2(J)*THe(J) 

TLF2 ( J) =TLF (J1 

TPR2  I J)  =TPR  ( J)  - - - 


TPF?(J)=thF(J) 

THP2 ( JJ  =THP (J) 

GO  TO  404S  — - 

4041  TEMPSd  )=Ti.R(Jl 
• TEMPS<2)'=TL£(J) 

—CALL  CniV  (TEMPS, BRAT-rTEMPS) 

TLP2(J)=TFMPS(1) 

TLF2!J)=TFMPS(2) 

TEMPSd  )=THP(J)  - , . . 

TEMPS (2) =THE ( J) 

call  COIV (TEMPS, BRAT, TEMPS) 

THP2(J)sTFMPs(1) ...  - ..  . 

THf?(j)=TEMPS(2) 

TFMPS( 1 )=TRH( J) 

T£mPS(2>  = TRE(J)  - - 

CALL  COIV(TEMPS. BRAT, TEMPS) 

TPP2(J)=TFMPS(li 


4045 
1040 

-“■404 

4046 
-•4047 


-404B 

40S0 


■TPF2(Ji  =TEMPS(?)  

IF(MDIAG.l)  1040.1040.404 

KRITF (NW. ICS) J,THR2 (J) . THE2 ( J) , TLR2 ( J) . TLE2 ( J) . TRR2 ( J) .TRE2( J) 

CONTINUE  - • - - . .. 

IF(IPAT-2I  4050.4046,4050 
IF(nplG)  4050.4050.4047 

no  4048  KKsl.N-PLC  ■ - 

CALL  CniV2 ( TBP.TBE.BPAT.KK.MOIAG) 

COIV? (TPH, TPE.br AT, KK.MOI AG) 


Call 

call 

call 

CALL 

CALL 


1049 

1050 


COIV?  (TFSPR.TFSPE. BRAT, KK.MOIAG)  •• 
CDIV? (TFPRR.TFPRE.BRAT.KK.MDIAG) 
COIV? (TTPCR.TTPCF.BRaT.KK.MDIAG) 
C0IV?(TTGRR.TTGRE.8SaT.KK,M0IAG)-- 
(.l.-:'’PR?(NS) 

C r - T K F p ( N 5 ) 

C3»TPR1  INS)  — 

C4=TRE1 (N3) 

C5-C4/C3 

C6  = C3'.C4'.<C5  

0;k.:-(C1.CP*C2)/C6 
OIF- (Cl »C5-C2)/C6 

-IF  (F01AG-?)  1049,1051,1049.- 

ir(M0IA6)  iCSO. 1051, 1050 
WRITE (NW, lfl3) 

WRITF  INW,  l?6)  — 

WR I TF  INW.TO 1 ) 


1051  1-1 

...  no  407  J=  I ,NS 

Cl  si  HR  1 i,J)  «01R.UIP2  1 J)  -0IE*THE1  (J) 
CP-’THH.  ( J)  oCl]E*THE2  (O'/  »aiR«THEl  (J) 

C3=TLR) ( J) aOlR+TLRr ( J)  -QlE*TLEl(J)  ... 

C4  = TLR1  (J)  »01E»TLE?  I.i)  ♦TLf.  1 (J)«Q1R 
C5  =TRR1  tj)  »01F“Olf.;*Tf(El  (J)»TRR2(J) 


- 04100000 
04110000 
04120000 

- 04130000 
04140000 
04150000 

- 04160000 
04170000 
04180000 

- 04190000 
04200000 
04210000 

- 04220000 
04230000 
04240000 

--  04250000 
04260000 
04270000 
04280000 
04290008 
04300000 
04310000 
04320000 
04330000 
04340000 
04350000 
04360000 
04370000 

- 04380000 
04390000 
04400000 

. - 04410000 
04420000 
04430000 
04440000 
04450000 
04460000 

- 04470000 
04480000 
04490000 
04500000 
04510000 
04520000 

- 04530000 
04540000 
04550000 

- 04560000 
04570000 
04580000 

- 04590000 
04600000 
046)0000 

--  04620000 
04630000 
04640000 

. 04650000 
04660000 
04670000 

- 04680000 
04690000 
04700000 
04710000 
04720000 
047.30000 
04740000 

04750000 

047(;0(/C0 

04770000 

04780000 

04790000 
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Cf,  ■•TRRl  (J)»Q1E*01R*TREHJ)*TRE2<J) 

NGS  =LS(t.> 

IF(J-NGS)  1054.1100.1054 

UOO  TTFR(L)  »C5/RP<L) 

TTFE(L)  =C6/RP<l.J 
L =L*1 

1054- IF(MOIAS)  1055.407.1055 — — 

1055  IF(MPOLI  1056.1057-.1056 

1056  WRITE (NW. 106) J. Cl. C2.C3.C4.C5.C6 
IF(HPOL)  407.1057.1057 

1057  THRl  )J)x4«PF(Cl,C2)  - 

THFl (J)=P4NGF(C1.C?) 

TLRl  )J)=AWPF(C3.C4) 

TLFl  <J)=P«NGF(C3.C4) 

TLR2(J)=AMPF<CS,C6) 

TLP?(J)=PANGF(C5.C6) 

40  7 CO^-ITINUE-  -- — --  --  - 

TEST  FOR  POLAR  FORM  OPTION 
IF(MPOL)  1195,1058.1056 

1 058  WRITE (NW, 1?6)  - 

WRITE (NW. 123) 

DO  1059  J=1,NS 

1059  WRITE (NW, 108) J.THRl < J) .THFl (J) .TLftl IJ) .TLEl ( J) .TLR2(J) 

1195  IF(NPLG)  1201 , 1201 ♦ 1 196 

1196  IF^MDlAGl  1199.1201.1199 

1-199-00  1200  JxI.NPLG  

C7  =PN(Jj  ‘RSIJ) 

C8  =(  RS(J>  *2.  *RW(J)I*PM{J) 

Cl-=T8R(l,Jl*QlR*T8R(?,J)-01EoTB£(l,J>  

C2  =TRR  ( 1 , J)  *01K*TftF  <2.  J)  .OIR^TBE  ( 1 ..)) 

C3  =C7» (TFsoft ( 1 . J) «Q1o»TF5PS (2.J) -OlE*TFSPE ( 1 . J) ) 

C4  xCr* ( TFspr ( 1 , J, •01E*TFsP£  <2. J) «01R*TESPE<1,J) ) - - - - 

CS  sTTPCR  ( 1 . J)*aiR.TTPCR  (2.  J)-!-QlE*TTPCe  ( l.J) 

CO  sTTPCRd.  J)«QU-'TTPCe<2.J)*QlH*TTPCE(l.J) 

IF(MPnL)  1060,1061.1060 

1060  WRtTE(NW,700) 

w»nf  (Nw.7onuec(  J)  .ci  .C2,C3.C4.C5.C6 
• ---IFJMPOL)  1 063 . 1 06  i'.  i 06i - 

1061  WRITE (NW,  700  1 
JPxl 

106-2-TElxAHPF(Cl,C2) 

TF.?=PANGF  (Cl  ,C2) 

TFTxAMPF (C3.C4) 

— TF4=P4NGE  (C3.C4)  - - 

TE5*ANPF (C5.C6) 

TE6»PANGF (C5,C6) 

WRITE(NW,123)  

wRvtEINW,  ir)6)LeC(J)  .TEI  .TF2.TF.3.TE4,TE5,TE6 
GO  TO  ( 1063, 12001 , JP 

1063-  ClxTPRd , J) *01R*TP0 (2. J)-01F»TPE (1 ,J>  

C2  =TPR  d , J)  *01E»TPE  (2.  J)  +01R*TPF  d,.)) 

C3  =C8*  (TFPRRd  , J)*01R  + TFpRR(2,J)-01F»TFPREd,.J)  ) 

C4  =CS»  ITFPRR  ( i IE  ♦!'£?•«£  ,2,  Ji  ■.OIP^TEPRE  (I-.  J)  ) 

C5  xTTGRH(  1 , J)«'aiR  + TTGRf{(2,.J)"01F«TTGRE(  1,  J) 

C6  =TTr,RR(!  ..J)»0lE.TTGRe(2.J)*QlR'»TTr,REd.J) 

- IF(MPOL>  1064,1065.1064  — 

1064  WRITE (NW. 702) 

WRITE .NW.701 )LEC (J) .Cl .C2,C3.C4»C5,C6 
IF(MPOL)  1200,1065,1065  — 

1065  JPx2 

WRITE (NW,702) 

- GO  TO  1062  

1200  CONTINUE 

1201  IFINSRO)  1207,1207,1202 

120?  IF(MPOL)  1203. 1205. 1203  —— — - 

1203  WRITE (NW.IPO) 

00  1070  j=l,NSRG 

1070  WHITE  (NW.1C8)  LS ( J) . TTFR ( J) ,TTFE 1 J)  

IFIMPOL)  1207,1205.1205 
1205  WRITE (NW. 124) 


, TLEZIJ) 


- C 4800000 
04813000 
04320000 

-04630000 

04640000 

04850000 

04860000 

04670000 

04660000 

04890006 

04900000 

04910000 

04920000 

- 04930COO 
049*0000 
04950000 

--  04960000 
04970003 
0*980000 

- 04990000 
05000000 
05010000 

- 05020000 
05030000 
OS04COOO 

- 05050000 
05060000 
05070000 
05080000 
05090000 
OSIOOOOO 

- 05110000 
05120000 
05130000 

- 05140000 
05150000 
05160000 

--  05170000 
05180000 
05190000 

- 05200000 
05210000 
05220000 

- 06230000 
05240000 
05250000 

-05260000 

05270000 

05280000 

• 05290000 
05300000 
05310000 

- 05320000 
05330000 
05340000 
05350000 
05360000 
05370000 

- 05380000 
05390000 
05400000 
05410000 
05420000 
05430000 

- 05440000 
05450000 
05460000 
06470000 
05480000 
05490000 


??06 
- 1?07 
\OTi 
1210 
-1215 


DO  12ni<> 

C InftMPF  <TTFR ( J) <TTFF ( J>  »- 
C?=PANOF (TTFR ( J) ,TTFE ( J) > 
WPITr (NW,108)LS(J) «C1«C2 
IF<KPLG)  l?19tl?19»1079 
IF(MPOU)  1210.1215tl210 
W«ITF (NW, 1231 

no  1080  J=l.NPLO 

TF1=TFSPR(1 . J) 

Te?=TFSPP(?» J1 

-TE3=TFSPF<1 ,J)  - 

TE4=TFSPF<?.J1 
Cl=Tei*QlR*TE2-TE3*01E 
C2»TF1«01E*TE4*TE3*OIR 

1076  TE1=TFPPR(1 , J) 

TF?=TFPRR(?. J) 

TF3=TFPRe<l .J)  

TE4=TFPPE<?.J» 

C3=TF1*01H*TE2-TE3*01E 

C4=TE1*Q1F»TE4*TE3»01R 

IF(MPOL)  1216*1077,1216 

1077  THRl  (J)=/.MPF(C1  ,C2) 

THEI (J)=P4n6F(C1,C21 

TLPl  ( J)  --4MPF  <C3.C4) 

TLFl < J) =PANGF (C3*C4) 

fiO  TO  1080  


1216 

1080 

1217 

-1218- 

1218 
8007 


8010 

•-806- 

100 


WRITE  (N-M*  108)  LEC(.I)  *Ct  *C2,C3,C4 
COMTINUE 

IFIMPOL)  1219*1217,1217 - 

WRITE  <NW. 125) 

00  1218  vJ=l*NPLG 

WRITE  (NW,  1081  LEClvl)  .THRKJUTHEH-JUTLRl  <J)  *TLE1  (J)  - 

IFINFX-MAX)  5007,501*501 
IF<ISFP-1)  5009,5008,5009 

-5008--ISFP=2  - - 

GO  TO  5020 
8009  NEX=NFX*1 

IF(NFX-MAX>-  5020,501,501 - - 

801  COF'TINUS 

IF(INP)  806,200,506 

CALL  EXIT • • 

FORMAT (72H1 
1 ) 

— 101  F0RMAT(9I8,5X,3I5,10X,I5» . 

102  F0PMAT(87.,6E12,4) 

103  FOOMAT(8280  torsional  RESPONSE  OF  THF  SYSTEM  WITH  6E APS ,EP I CYCLI C 

IGEARS  AND  BPANCMES  PN403  ) - 

105  F0RMAT<8X,6E12.S) 

106  format (IHOflX ,8HSTATI0NS.1X, 12HBPG,EXT.C0N. ,2X,8HP.RANCHES,IX, 

19HNO.OF  FR0,2X,8HINP  SFTS,2X,8HSR  GEARS ,2X , 0MPL  GEARS/  

2 I7,6X,I5,2X.5I10) 

107  format < /5X. iOHRrjTOR  DA T A//4X , 3HST A , 1 X , 1 2H  MOM. I NFRT . , 3X , 

16HLFNGTH,4X,10HSnFFN.01A,3X,8HMA5S  0 1 A , 3X , 9M 1 NNER  0IA,2X, 

212HCONC.  COMPL./^X3HNn,2X,9HLRS-IN»*?,7X,2HIN,10X,2HlN,10X,2HlN, 
310x,2m1N,6X,.  9HSA0/IN-La) 

108-FOPMAT(I7.1X.6E12.5)  - . 

109  F0RMAT(/1H1 ,7x,46hFXTFRNAL  TORSIONAL  CONSTRAINT  AND  DAMPING 
1 4X,3HSTA,2X,  9HSTlFFNeSS,2X,24HDAMPING-  <LB-IN-SEC/RAO) / 

' — 2 4X,3HN0.,iX,llH<Ln-lN/RAD> ,2X,9HT0  GROUND, 2X , 12HT0  NEXT  -STA.) 

112  F0RMAT</1M1,9X,26H5INGLE  REDUCTION  GFAR  DATA) 

113  F0RMAT(/4X,3HSTA,3X,20HG£AR  SET  RADII  (IN.),2X, 

1  31HCOH81NED  TANGENTIAL  COMPL 1 ANCES//9X , 1 OHF I RST  G£AR,2X 

2 , 1 IHSECOND  GEAR, 3X,7H(  IN/LB)  ) 

114  FORMAT  (/18X,10HPLANETARY  SET  DATA) 

F0»MAT(/5X,17H8RANCHES  /6X,7HFAR  END , 5X , 6HCOMMON 1 

F0RMAT(6X,3n5,5X)  ) . - - 

FORMAT  ( lH0,5X,nHFREnUENCY  = ,E  1 4 . 6 , 2X  , 3HCPS  > 

F0RMAT(/1HH 

FORMAT)/  8X,40HCOMPUTEO  RESPONSE  AT  PLANETARY  GEAR  SETS// 

1 10X,43HTANGENTIAL  TOOTH  FORCE  AT  EACH  PLANFT  (LPS)/ 

2 4X,3HSTA,8X,10HSUN-PLANET,13X,11HR1NG-PLANET/ 


118 
— 119 
120 
121 
—122 


05500000 
05510000 
05520000 
05530000 
05540000 
05550000 
05560000 
05570000 
05580000 
05590000 
05600000 
05610000 
05620000 
05630000 
05640000 
05650000 
05660000 
05670000 
05680000 
05690000 
05700000 
05710000 
05720000 
05730000 
05740000 
05750000 
05760000 
05770000 
05780000 
05790000 
05800000 
05810000 
05020000 
05830000 
05840000 
05850000 
05860000 
05870000 
05880000 
05890000 
05900000 
05910000 
05920000 
05930000 
05940000 
05950000 
05960000 
05970000 
05980000 
05990000 
06000000 
07,010000 
06020000 
06030000 
06040000 
. -■  06050000 

OATA//06060000 
06070000 
06080000 
06090000 
06100000 
06110000 
06120000 
06130000 
06140000 
06150000 
06160000 
06170U0O 
06180000 
06190000 
06200000 


3 4i<.3HN0.,S*.AHBfrnL.lSX«9MIMAGINAPY.5x.4HRFAL,6X.'JHlMAG!MARYI  ■ 06210000 

1?3  FORMAT<‘}X.<5HAMPLlTUnEflX.13HPH45E-AN<'n.nfGt  1 X . RHAMPL I TUnE  . IX*  06220000 

1 1 3HPHASF-ANG,0EG.  1 X,QHAMPL1TUDE*1X.  1 .XHPHASE-ANG.OECil  06230000 

-12*  FnRM4T(/PX.36HC0MPUTF0  RESPONSE  AT  SIMPLE  GEAR  SET/  062*0000 

1/  *X*3HSTA .PX.2PHTANGPNTIAL  TOOTH  FOOCE  (LBS)/  9X *SHAMPL ITUOE . 062SOOOO 

2 IX  , 13HPHASE-ANG,nFG)  06260000 

—125  FORMaT(/  Px .fcOHCOMPUTEf)  RESPONSE  AT  PLANETARY  GEAR  SETS//  06270000 

1 10X,A3H1 anGENTI AL  TOOTH  FORCE  AT  EACH  PLANET  (L8S)/  06280000 

2 4X.  3HSTA.aX. lnHSUN-PLANFT*13X,llHRING-PLANFT/  4X,3HN0.*2Xf  06290000 

3 RHAMPLITUOE.lX.nHPHASE-ANGfOEr.flXfPHAMPLITUOF.lXf  - - 06300000 

4 13HPHASE-ANG,DEG1  06310000 

126  F0PMAT(/  4X,3HSTA*4X.19HANr,0LAR  01SP.(RA0.)  ,5X.  8HT0R0UE- 1 * 2X , 06320000 

- ■ 1 AH ( IN-LRS ) .6X . 8HT0R0UE-2,2X*8H(1N-I  RS) ) 06330000 

127  FORMAT (/4X.3MSTA,4X,6HN0.  OF .RX , 3HSUN, 7X *6HPLANF T/  06340000 

14X.3HN0* . 3X,7HPlA6FTS,4X. 10HRAOIUS( IN) . 2X , 1 OhRAD IDS ( I N ) ) 063SO000 

-128  FORMAT(/4X.3HSTA*2X,10HWE1GHT(I.R) *4X.4lHPOLAR  MASS  MOMFNTS  OF  INEP06360000 
ITIA  (LRS-INo»21/  4X,3hN0. ,4X.6HPLANET.8X,3hSUN*7X.6HPLANET*7X.  06370000 
24HRING,7X*7HCARRIER)  063H0000 

— 129  F0RMAT(/4X,3HSTA.6X.26HC0MPLIANCE-  I.INELR(II\I./LB>  * 16X.  06390000 

1 ISHCOH-ANG (RAO/LB) / 4 X * 3HM0 . *2X , 1 OHSUK-PL ANET * 2X * 1 1 HPLANET-R I NO  * 06400000 

2 1X.10HPLAN.-CAR..14X*11HRIN6-6ROUND)  06410000 

—130  format  <1S*3T12,4.1?X.E12.4)  06420000 

131  F0RMAT(I7.1X.3E12.4,12X.F12.4)  06430000 

132  F0RMAT(/SX.13HHPANCH  0PTI0N*I5)  06440000 

—135  FORHAT(/9X.10HSH£4R  MOD. , 2X . I IMhT . DENSITY/9X*  9MLBS/IN«*2  ,3X.  06450000 

1 9HLBS/IN«»3/8X.2£12.S)  06460000 

136  FORMAT(/5X.36HAnOEO  EXCITATION  TREATED  SEPARATELY)  06470000 

— 1«0  format  (/«:'. 36HCOHPUTeO  RESPONSE  AT  SIMPLE  GEAR  SET/  06480000 

1/4X.3HSTA.^x.28HTANGFNTIAL  TOOTH  FORCE  (LBS) /12X.4HREaL*6X t 06490000 

2 9HIMAGINARY)  06500000 

-181  FORMAT(12hOOIAGNOSTICS/5x,S3HFIHST  PASS-  UNIT  AMPLITUDE  AT  ST A TION0651 00 00 

1 1-NO  EXCITATION)  06520000 

182  FORMAT(12MOOIAGNOSTICS/5X.57HSECONO  PASS-  ZERO  AMPLITUDE  AT  STATI006530000 

IN  1-  WITH  EXCITATION)  --  06540000 

183  FOOMAT(42Hn0uTPUT-  COMPUTED  RESPONSE  AT  ALL  STATIONS/  06550000 

n0X.63H(T0R0UE-l-  GOING  INTO  STATION.  TORQUE-2-  COMING  OUT  OF  STAT06560000 

---  ■ 2ION) ) - 06570000 

184  FORMAT (SX, 6HTFSPR 1 *6X.6HTFSPR2.6X.6HTFSPE1.6X.6HTFSPF?.9X ♦3HQ1R,  06580000 

19X.3HOie)  06590000 

-185  F0RMAT(8X.6HTFPRRI,6X,6HTFP«R2,6X.6HTFPRE1.6X.6HTFPRE2)  06600000 

190  format  (I5,6E12.4.I3)  06610000 

191  format (38H0STATION  NO.  INCORRECT  OP  OUT  OF  ORDER)  06620000 

-192  FORMAK  37H0STATION  NO.  FOR  GEAR  ERROR  INCORRECT)  06630000 

194  format (IHI .14X.46H5INGLE  REDUCTION  6FAR-  LINEAR  EXCITATION  (IN,)/  06640000 
14X.3HSTA,2x,9MFRE0ueNCT.6X,4HRFAL,6X,9HIMAGINARY)  06650000 

— L95  FORMATdHl ,14X,39MPLANETARY  GEAR-  LINEAR  EXCITATION  (IN,)/  06660000 

1*X.3HSTA,2X,9HFRE0UFMCY,9X,  BHSUN  GEaR.ITX.  9HRING  GEAR/  06670000 

2?4X,4HReAL ,6X.DHIMAGINARY,5X,*HREAL,6X,9HIMA6INARY)  06680000 

-^00-FORMAT(/4X,3HSTA, 1X,24HANG.  DISP.-PLaNET  CENTER, IX,  06690000 

1 22HT0T.  TORQUE  SUN-PLANeT,ZX,23HT0T  TORQUE  PLAN-CARRIER)  06700000 

70 1 format ( 4X,3MN0. ,SX , AHREAL.GX .RMIMAGINAR Y, 5X ,*HRE AL , 6X ,9H I MAG INARY0671 0000 


15X ,4HPEAL,6X ,>'« imaginary  /I  7, IX, bt 12, 5) 

^02-FpRMAT(/  4X,3HSTA,2X,22HANG.  OISP.-PlANET  B0DY.2X, 

1 23HT0T.  TORQUE  PLANE7-«ING,2X,22HT0T.  TORQUE  GRNO.-RINC) 
FNO 

-FlINCTlON  AMPF(A.B) 

C MFMBERNAME  R32AMPF 


-C 


(Jb(/tlOUU 
06730000 
06740000 
06750000 
00010000 
00020000 
00040000 
00041000 
00050000 
00010000 
00020000 
00030000 
00040000 

-dimension  LTl (2) ,LT2 (2) ,LT3(2) ,LT4(2) ,LT9(2) ,KT1 (2) .KT2(2) ,KT3(2)  00 050 000 
1.  KT4 (2) ,KT9 (2) ,ML IT (2) ,MKLT (2) ,MLFT (?)  OOOftOOOO 

DIMENSION  LEE (20) .LOC f20 ) , LMC (20 ) , TC ( 2 ) , OC ( 2 ) , TCT ( 2 ) ,0CT(2) ,TCZ(2) 00070000 
-1  .OCZ(2) ,TM7(/) ,0MZ (2) ,TM1 (?) ,TBCZ(2) .OM(2) ,TBM(2) , TF ( ? ) ,OM 1 ( 2 ) , OOOPOOOO 

2TCTH(2) ,OCTH(?) .TEMPI (2) ,TEMP?(2) ,OF (2)  00090000 

COMMON  TBR (2.2) ,TBE(2,2) ,TPR(2,2) ,TPF ( 2 , 2 ) , TFSPR ( 2 , 2 ) ,TFSPE(2,2) , 00 10 0000 
-1-  TFPRP (2.?) ,TFPPE (2.2) .TTPCB (2,2) ,TTPCE (2,?) , TTGRR ( ?, 2 ) ,TT6RE ( 2, 2) OOllQOOO 


4MPF  = S0RT  (A**'2*e**2) 

-RETURN — — - - ■ 

FNO 

SUBROUT  INF  RLOQP ( LFE .LOC ,1-MC .L ! , KL ,LF . N5R , L 1 T , KLT . LET ) 
MEHBERNAME  R3?BLOnP 
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COMMON  «TO (?00) .UST<2Q0» .PMS(i’OO) »OIH<ZOO) «BCR 

1 <RK  (BO)  iLFC  <2?  ,PN(2>  .P  IP  (2)  ,PMC  ( 2 ) , PM  (2) 

2 ST (2) .LRW (20) .LflS(?0) .CCOMCPOO) . aXY) .AXY2,BXY 

3 TLF  (2001 .THR(200) # THF ( 230 ) .TRR < 20 0 ) ,Twe (200) , 
COMMON  ft  (7,7)  ,B  (7.2)  ,LS(20)  .RP(20)  ,Rr-(20)  ,50(2 
1 TOfi  (200) , THE  1 (200) iTLEl  ‘200 ) , TRE2 ( 200 ) ,TTEB( 

2 PSP (21 ,THP1 (200) iTLPl (200) ,Trift2(200) .TLR2(200 

3 TLe2(200) ,RL(?00) ,PC?12) ,PRPi2)  ,DMP(SO) 

common  it,  K<,,L‘.,MDIftG,FR02,AHGR,*NGF,T(5R,TQE 

COMMON  K1  ,K2,K3,K9,Ll,l.2,L3,L9,Lf,<10)  , IBRftN 
IE(LI-1)2,1,2 

10=0 

1F(LMC{KI.))  S.ft.ft 

LMC<KL)='LMC(KL) 

00  TO  ft 

--2-IF(Ll-ft)  

3 11=2 
ft  LTl  (n)=Ll 

LT2(1I)=L2 

t-T3(n)=L3 

tTft(lI)*Lft 

LT<»(tT)=L9 - 

KTl  ( II) =KI 
KTPdll^KP 

KT3(n)=i<3  - • 

KTft(n)=Kft 
KTR  (in  =KN 

Ml.lT(ni=LlT 

mki.T(II;=KLT 

MLrT(in=LFT 

-9  liO  TO  (In.?0,30,ft0,50.00,70,7l)-*LI  • 

10  00  11  ll=i,2 


(50) ,LH(50) ,ODT 
,SS(2) .SW(2) ,sa 
1,BXV2,TLH(200» 
TRRl <200) 

0) ,TnR2(200)  , 
20) ,TTFE(20) . - 
) ,THE2(200>  f 


(200)00120000 
(2),  00130000 


TC(II)=0.0 

— oc<n)=o.o  -■ 

TCT ( I I) =0,0 

ocT(n)=o.o 
- TCZ  <II)=0.0  -■ 


OOlftOOOO 
00150000 
00160000 
- 00170000 
OOIMOOOO 
00190000 

«J«NS  tHltNUtNRtNPLGOOaOOOOO 
00210000 
00220000 

- 00230000 

002ft0n00 

00250000 

00260000 

00270000 

002X0000 

00290000 

00300000 

00310000 

00320000 

00330000 

003ft0000 

00350000 

00360000 

00370000 

••  — - 003“0000 

003yOOOO 

OOftOOOOD 

OOftlflOOO 

OOftPOOOO 

00ft30000 

OOftftCOCO 

OOftBOOOO 

OOftBOCOO 

OOftTOOCO 

OOftROOOO 

00ft90000 

- 00500000 


OCZ<II)=0.0 

TMZdljsO.O 

OM7(II)=0.0 

TH)  (111=0.0 • 

OM)  <n)=o.o 
TBC7(n)=0.0 

-ll-OM(Il)=r0.0 — - 

TRMdl)  =0.0 
TF(II)=0.0 

TCTH(II)=0.O--- 

OCTHdllrO.O 
OF ! II ) =0.0 

TC(l)=TOR 

Tr  (2)  =Tf)E 
OC(l)=ANGP 

0C<2)=ftNGe — 

ANPR=0.0 
ANPF=0 .0 

TOP  = 0.0 

TQF=0.0 
LF=UnC  <KL) 

r,0  TO  90 — 

20  TC2  d)=Tt)B 
TC7  (2) =TQE 

OC7  d > = ftN(3R 

0C7  (2)=ANGE 
ANGP=i . 

ANr.F  = 0. 

TOP=0. 

T.7F  = 0. 

60  TO  97  


00510000 
00520000 
00530000 
OOSfcOOOO 
00550000 
00560000 
00570000 
00580000 
00590000 
00600000 
00610000 
00620000 
00630000 
OOCftOOOO 
00650000 
00660000 
00670000 
00680000 
00690000 
00700000 
00710000 
00720000 
00730000 
007ft0000 
00750000 
00760000 
00770000 
00700000 
00790000 
OOBOOOOO 
0081 0000 
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30  TCTH(1)=TQP 
TCTH(?).TQe 

■ OCTH  ( 1 ) aANfiR 

0CTH(?) =ANGE 
IF(LMC(KL))  31.35.31 

-31-*Nf;RsO.O 

AN6E*0.0 
TOR=l .0 

TOFaO.O 

RO  TO  97 

35  TF<l)=0.n 

TF<2)=0.0  

GO  TO  45 

40  IF<l.MC(KL>)  400,55,400 

•O0-TCT<1)=TOR  

TCT(?)=TOF 

OCT(l)=6NGP 

0CT(?»=AN6F - • - — 

OF  (11*0.0 
OF (3) =0.0 

CALL  CSUG (OCTH.OCZ.TFMPI)- 


•4-1 


CALL  CMPY(TEMP1, OF, TEMPI) 
CALL  CSUfi (OC.OCZ.TEMP?) 

— call  C5u«(T£mp2, tempi, TEMPH- 

CALL  CSUP (OCT,OC2,TEMP2) 

CALL  COIV (TEMPI ,TEMP2.TF) 

IF(LI-G)  42,44.42  

42  CALL  CSUfl (TCTH.TCZ.TFMPD 


CMPY (TEMPI , OF, TEMPI) 
CSU«(TCT,TC2.T£MP2) 

CMPY (TF,TEHP2,TEMP2l 
CAOO (TEMPI ,TEMP2. TEMPI) 
CADD(TEHP1,TCZ,THC2) 
C40D(TBCZ.7C. TEMPI). 


CALL 

CALL 

CALL 
CALL 
CALL 

CALL 

ANGPaOCd  1 
ANGE=OC (2) 

LF=LMC  (KL  ) - - • 

T(3R  = TFMP1  ( ) ) 

TQFsTEM.-'l  (2) 

GO  TO  (90,‘)0-,90.aO»98.97t90>-»LI 

44  ANGP=0F(1) 

ANGFsOP (2) 

T0F=TF(2) 

J=LFF(KL) 

LFsLOC  (KL) 

J1=LF 
J?=LMC (KL) 

GO  TO  99 

45  CALL  CSUB(0CTH,0C2, TEMPI) 

CALL  CSUM(0C,0CZ,TEMP2) 

CALL  CDIV(TEMP2, TEMPI, OF) 

AMGRjiOF  ( 1 ) 

AMGFsOF  (2)-- — 

TOR=TF(l) 

T(3F  = TF(2) 

r,0  TO  97 

SO  TM2(1)«T0R 
TM? (2) =TOF 

OM2(l)=ANGR 

OM2(P)=aMGE 

OF(1)=1.0 

OF(?)=0.0  

<50  TO  41 

55  CALL  CSUH (TCTH,TC2, TEMPI ) 

CALL  CMPY(TEMP1, OF, TEMPI) 

CALL  CADO(TEMPl,TCZ,TBM) 

CALL  CAOO(TC,T0M,T£HP2) 

TOO  = 7FMP2  ( I ) _ 


OOB2OOO0 
00630000 
00640000 
OOO'OOOO 
OOB60000 
00670000 
00660000 
00690000 
00900000 
00910000 
00920000 
009.10000 
00940000 
00950000 
00950000 
00970000 
00940000 
00990000 
01000000 
01010000 
01020000 
01030000 
01040000 
OlOSOOOO 
01050000 
01070000 
01060000 
01090000 
01100000 
01110000 
01120000 
01130000 
01140000 
01150000 
01150000 
01170000 
01160000 
01190000 
01200000 
01210000 
01220000 
01230000 
01240000 
01250000 
01250000 
01270000 
01260000 
01290000 
01300000 
01310000 
01320000 
01330000 
01340000 
01350000 
01350000 
01370000 
O135OC0D 
01390000  - 
01400000 
01410000 
01420000 
01430000 
01440000 
01450000  - 
01450000 
01470000 
01460000 
01490000 
01500000 
01510000 


rOF  = Tff'f>2(S?l 
«o  TCf  n 

*0  7M1  < UrTOc^  

TMl 

0«1  ( 1 1 

OMi  (P)aANl-f.  

TF».P1  IS.'  =1  vO-OHl  tn 
TEMPI  <ii  l sCMi  (?) 

call  C»»0(T£MPl,0H2tTet<P.l)- 

CalL  Cr)IV(CMZ.TEMEl,OE) 

CO  TO  AT 

70-  TEMPI (>isFQ« 

TEMPI  (?j  toe 

call  CADOUEMPl  tTC. TEMPI) 

T(5P«TEMP  3 <1  ) 

TOE=TEMPi (2) 
tiO  TO  85 

71- KL=KLM . 

IF<KL-NflP)  72»72«73 

72  LF=LFe)KL) 

60  TO  74 

73  Lr«NS*2 
Ll  = 0 

—74— IF(IO)  75,92.75 

75  J3=KL-1 


— Tfi 

77 

—76 


—79 

80 


85 


90 


-91- 


IF(LMC(J3))  77.78.77 

J?=LOC(J3)  . , - — ...... 

60  TO  78 
0?=LMC ( J3) 

J1  = LFF(J3J - - 

LMOF J31 =-LMC ( J3) 

00  79  I0=J1,J2 

V9ITE<NM.108)  I0.THR<10) , THE ( 10) , TLR < 1 0) » TLE ( 10) .TRRCIO) ,TR£< 10) 

60  TO  91 

JlaLFE(KL) 

-02-L0C<KL) — 

60  TO  990 
LF=LMC(KL) 

L1=L1*1 

IF(IO)  91,92,91 

WPTTE  (NWrlOOl— • •• 

HBITE  (NW,  101)  (TC(  ID  ,0C(1I)  ,TCT<n)  ,OCT<II)  ,TC2  (ID 


lllfcl.?) 

— M9ITF(NW,102) 

W8TTE(NW.101)  (TMZ(Il),OMZ<ID,TMl)n)  ,0M1(I1)  ,TBCZ(1 
1II--1.2) 

W9ITF(NH,103)- 


M9ITF<8W,10l)  (TOMdl)  ,TF<II)  ,TCTM(ID  ,OCTH(II)  .OF  (II 
92  RETURN 

~97~0=!.FF<kL) 

U?=LOC(KL) 

J1=J 

LF»d2 

II  = l 

GO  TO  99 

-96-d2=LMC  (KL  .' 


,OCZ(II) 

1} ,OH(II 
) ,II>1,2 


> , 


J»LOC(KL) 
JlsJ 
-LF-d2- 


99 


11  = 2 

H=LT1  (ID 
-L2=LT2(1D  — 
L3=LT3{ID 
L4=LT4{ID 

-L9=LT9(ID 

.K1  = KT1  (ID 
K2=KT2(ID 
-K3=KT3(ID  — 


01520000 
01530000 
01540000 
01550000 
01560000 
01570000 
01580000 
01590000 
01600000 
01610000 
01620000 
01630000 
01640000 
01650000 
01660000 
0167X000 
01680000 
01690000 
01700000 
01710000 
01720000 
01730000 
01740000 
01750000 
01760000 
01770000 
01780000 
01790000 
01800000 
0)810000 
01820000 
01830090 
OI840000 
01850000 
01860000 
01870000 
01080000 
01890000 
01900000 
01910000 
01920000 
01930000 
01940000 
01950000 
31960000 
>1970000 
01980000 
01990000 
02000000 
02010000 
02020000 
02030000 
02040000 
02050000 
02060000 
02070000 
02080000 
02090000 
02100000 
02110000 
- 02120000 
02130000 
02140000 
02150000 
02160000 
02170000 
02180000 
02190000 
02200000 
02210000 
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no 


• 


K<.TKT4(tl.t  0222onOC 

KQrKr'xni  02230000 

;IT=MLIT(IZ)  02240000 

^,.T ->*i<LT  i I i ; 022‘%0000 

LFT  iWLFT t 1 I ) 02260000 

-Q'SO  iFUr;)  90.O0,'i'»2.-  0127  0000 

992  W9I  TF  (tv,; . 1 022P.0000 

WRITE  (NVIi  701)  02290000 

no  991  I0.10KJ2  ■ 02300000 

991  WRITE  (NW,  lOE)  1 0 i T HR  ( 10)  , THE.  t *0 ) -jILR  ( 10 ) , TLE  ( 1 0 ) , TRR  ( 10)  , TRE  ( 1 0 1 02310000 

00  TO  90  0232000D 

— 10R'FORMAT(I7,lX,6El2.5t  - ■-  02330000 

126  FORMAT!/  4 x , 3HST A , 4/ , 1 9HANGULAR  OISP.IRAD.)  ,SXt  9MT0R0UE- I , 2X , 023400DO 

1 eHUN-LRS)  t6X.  8HT0RQUE-2,2X,8MllN-tHS)  ) . 023S000O 

701  format ( 4X . 3HNO. ,5X , 4MRE AL • 6X vRHIMAG IN AR Y , 6X , 4HRE AL p 6X  » 9h ] MAG INARYO 2360 000 
I'iX.AHRFALpAX  pRHIMAGINARY  / 1 7 1 1 X , 6F  1 2 , 6 ) 02370000 


100  FOR^tAT  (/14X  .3HT-Cp9X.3H0-C.7Xp'5H’^-CpTp3X,9HTHET/.-C»Tt4X, 

1 9Hf-C.O,3X.9HTHETA-CpO) 

101  format (5XphE12.S) 

102  format (/12X  p5HT-M,n,3Xp9HTHETA-M,0p9X,5HT-M,l , 3X p9HTHFTA-M, 1 , 
19Xp3HTRC,SX,7HTHFTA-M) 

103  format  (/lAX.SMTflMpRXpaHT-F-pSX.RHT-CpTHETAp  IX,  UHTHETA-CpTH,»  -- 

ISX  .7H7META-F) 

ENR 

— GURROUTINF  CAOD(ApH,Cl  - - 

_C mFmaEphAHE  R32CA00 

n I MFNs't  b~N  A(2),B<2),C(2) 

C ( I )=A(  1 ) pR!  1 ) 

ri?) =4 (2) pR  f 21 
RETURN 

SUBROUTINE  Cr, I V (A,R,C) 


mfmrepnamf  RXPCOTw 

dimension  a (2) ,R (2) ,C (2) 

IF(Ri2))  10,5,10 

5 IF(R(1) ) 7,6,7 

6 WOITF(6.ini) 

GO  TO  14  

7 CT=4 ( 1 ) /R ( 1 ) 

CR=A (2) /R( 1 ) 

GO  TO  15 

10  IF(R(n)  12,11,12 

11  C7=A(2)/P(2) 

CRa  — A ( 1 ) /R(2) 

GO  TO  15 

12  CS=8(2)/R(1) 

C6«fi(l  ) ♦RX?)«C5  

C7  = ( 4 ( 1 ) pCR'A (2) ) /C6 
Ca  = (4 (2)»A (1) *C5) /C6 

14  WRITF(6,100)  (A(I) ,8(1) ,1=1,2), C7,C8 

15  C(l)  =C7 

RETURN 

100  format (5X,15HOIAGNOSTIC-COIV/6E13,5) 
-lOl-FOPMAT  (5X,/24HCOMPLex  &IVISI0N.-By--2eR0> 

END 

SUR ROUTINE  CDlV2(Apfl,C,K,M) 


C. *< EMBEPNAME  R32CnTV7 

C 

DIMENSION  A (2,2) ,9(2,2) ,C(2),7K<2)_ 

• TK(1  ) =.4  ( 2,K) 

TK (2) =R  (2,K  ) 

IF(M.5)  10,5,10  

5 WRITf(6,lOO)  TK(1) ,TK(2( ,C(1» ,C(2) 

10  call  COIV(TK,CpTK) 

A(2»h:!aTK(l) — 


0232.0000 
02390000 
024C0O00 
02410000 
02420000 
02430000 
02440000 
Ol'A'iOOOO 
000 J 0000 
0002000R 
00030000 
00040000 
00050000 
OOOaTOOO 
OOCIOOOO 
OOOlOOPO 
OOCiCOf/O 
00030000 
00040000 
0005000.) 
OOOaOOOO 
000)'J0(;0 
OOOBOOOO 
00090000 
OOlODOOO 
00110000 
00120000 
00130000 
00140000 
00150000 
00160000 
00170000 
00160000 
00190000 
00200000 
00210000 
00220000 
00230000 
00240000 
00250000 
00260000 
00270000 
00260000 
00010000 
00020000 
00030000 
00040000 
00050000 
00060000 
00070000 
OOOHOOOO 
00090000 
OOlOOOOO 

oonoooo 
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• It 


R(?«K)=TK(2)  00120000 

IFiM-si  20,lSt20  00130000 

??~*(BITE(6*101>-TK(U»-TK<24 — - - 00140000 

20  return  , 00150000 

100  format  (/14'„  t3llRFR.9X*3HPFE.7A,5HeRATR»7A*5HBRATE/5Xf  4E12.5)  00160000 

101  F0RMAT«/inX.7HRA7IO-R.5X«7HRATI0-E/5X*2E12.5)  00170000 

—  ENO - - OOlflOOOO 

SURROUTlNg  CMPYlA.R.Cl  OOUIOOOO 

C “ 00020000 

— C MEMBFRNAHE  R32CMPY  - - 000300CO 

C ” ’ 00040000 

01«ENS10N  4 (2) ,R (2) (2)  00050000 

—  f.i=A(n*fln  )-Ai2)«fl(2) - - — - 00040000 

C2  = A(n‘»B(2)«A(2)«B(?. ) 00070000 

C(1)=C1  OOOROOOO 

C(2)=C2  - --  = — --  •-  • OOOOOOOO 

RFTURN  00100000 

ENO  00110000 

—  SURRO'JTIHE  CFURIa^RqCF — 0001000(1 

.C MEMREPNAME  R32C5UR 00020000 

DIMENSION  A (2> ,B (2) .C<2)  00030000 

C ( 1 ) =A  H 1 “P  ( 1 i 00040000 

C(?)=A(2)-P'2)  OOObOOOO 

RETURN  00040000 

END 00070000 

SURRDUTINE  M4T1N(4.N1.H.M1 .DETER. ID)  . OOOIOOOO 

C ' 00020000 

—C MfUREPNAME  R32M4TIN  — — 00030000 

C ‘ ' 00040000 

DIMENSION  A(7v  /U»l(7«2»  *tNDeX(?«3)  00050000 

C general  form  of  dimension  statement  00070000 

C OOO'lOOOf' 

— E(7UIVALENCE  -(IHOWtUROKlt-IlCOLU-fjCOLU-  )*-(AHAX»  T,  SWAP) OOOROOOO 

C 1)0100000 

C initialization  oouoooo 

—c — 00120000 

M=M1  00130000 

N = N1  OOUOOOO 

10  DETER  =1 .0- --  00150000 

IS  no  20  jsi<N  00140000 

20  TNDex(J,3)  = 0 00170000 

^30  -DO  650  • I»1-.N OOlMOOOO 

C 00150000 

C SEARCH  FOR  PIVOT  ELEMENT  00200000 

-- e — 00210000 

40  AMAXsO.O  00220000 

45  DO  105  J=1.N  00230000 

IF  ( index  (J.3)  - I ) -60t -i05t.-60 : 00240  000 

40  no  100  K=1,N  00250000 

IF ( INDEX (K , 3) -1 ) 0Oi  100,  715  00240000 

AO  IF  ( • • AMAX  -ABS  4A(-,),K)  ) >-  86,  100,  100  00270000 

AS  IBOW^J  002AOOOO 

RO  ICOLU  =K  002ROOOO 

AMAX  = AB5  <A(J,K)) - — 00300000 

100  CONTINUE  00310000 

105  CONTINUE  00320000 

INDEX  (ICOIU  ,3)  » JNDEXIICOLU  t3)  ♦! - 00330000 

240  INDEX ( I ,1 ) =IROW  00340000 

270  lNDEXlI,2!=IC0LU  00350000 

C INTERCHANGE  ROWS  TO  PUT  PIVOT  ELEMENT  ON  DIAGONAL  00370000 

C 003HOOOO 

— —130  IF  (JROW-ICOLU  ) 140,-310,— 140 * 00300000 

140  DETER  a-OETER  00400000 

150  DO  200  Lal,N  00410000 

140  SWAP=A (IR0W,L)  00420000 

170  A ( IROW,L)  =A  ( ICOLU  ,L) 00430000 

200  AdCOLU  ,L)=SWAP  00440000 

1F(M)  310.  310,  210  00450000 

210  no  250  L-1,  M • - . - 0044(1000 
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A i 


o o o 1 V ^ 


M 

■ I 


??0  SW4P=fl(IR0W.L) 

?30  e(I«OW,L)=B(ICOLU  «LI 

PBO-  BdCOLU  *L)»SW4P - 

DIVIDE  PIVOT  ftOK  BY  PIVOT  ELEHENT 


310  PIVOT  -AdCOLU  .rCOLU  ) 
DETER  =DeTER  ‘PIVOT 

-330-AdCOLU  .ICOLU-)‘l.O 

340  DO  350  L=1.N 

350  AdCOLU  4L)=AdCOLU  «L)/PIVOT 

355- IF (M)  360,  360,  360 

360  00  370  L=I.M 

370  BIICOLU  ,L)=B(ICOLU  ,L)/PIVOT 


REDUCE  NQN-PIVOT  ROWS 

3R0-no  550  L1»1.N ^ — 

390  IF(L1-IC0LU  ) 400,  550,  400 
400  T=A(L1,1C0LU  ) 

4aa-A(Li»icoLu  )=o.o 

IFd)430,550,430 
- 430  no  450  U = I 

450  A (LI  ,L!  =A  (L1,L>-A  dCOL3;I-»L7*T^— — 

455  IF(M)  550,  650,  460 
460  00  500  L=1,M 

500-R(LI,L)=B(H»L>-&dCOH>_*JL-V*T 

550  CONTINUE 
C 

— C— , INTERCHANGE  COLUMNS 

C 

600  DO  710  1=1, N 

610-L  = N*1-I  - 

6?0  IF  dN0Ex(l.,l)-IN0EX(L,2»»  630,  710,  630 
630  JROW=INOEA (L,U 

^AO  JCOLU  ■IN0EX<L,2) 

650  OO  705  Kal,N 
660  SWAP=A (K,JP0W) 

t,7C.  A (K.JR0W)=A1K,JC0LU— ) 

700  A(K,JC0LU  )=SWAP 
705  CONTINUE 

710  CONTINUE 

00  730  K a 1,N 

IFdNnEX(K,3)  -1»  715,720,715 

720-CONTINUE 

730  CONTINUE 
ID=I 

740- RETURN — 

715  ID  =2 

WR1TE(6,760) 

^760-FOBMAT— <5X,18HNATRIX— IS-^INGULAR7 

GO  TO  740 
END 


C 

£ MEMBERNAME  R32PANGF 

C 

IF--(A)-30,50,30 

30  IF  (B)  31,60,31 

31  THFT  = ATAN (0/A)«57. 29577951 

— PANGF  = THET  

IF  (A)  32,32,35 

32  PANGF  = THET  ♦ 180.0 

33-  RETURN — - 

35  IF  (B)  36,33,33 

36  PANGF  a THFT  ♦ 360.0 

GO  TO  33 

50  IF  (R)  51,52,53 

51  PANGF  = 270.0 

GO- TO- 33 


00470000 

004R0Q00 

OO4R0OOO  - 

00500000 

O0510CO0 

00520000  - 

00530000 

00540000 

—  00550000  - 

00560000 

00570000 

— 00580000  - 
00590000 
00600000 

00610000  -- 

00620000 

00630000 

00640000  ■ 

00650000 

00660000 

00570000  - 

00660000 

00690000 

00700000  - 

00710000 

00720000 

00730000  — 

00740000 

00750000 

00760000  - 

00770000 

00760000 

00790000  - 

00800000 

00810000 

00820000  - 

00830000 
00840000 
— — 00850000  - 
00860000 
00070000 

00880000  - 

00890000 

00900000 

00910000  - 

00920000 

00930000 

00940000  - 

00950000 

00960000 

00970000  - 

00980000 

00990000 

00010000  - 

00020000 

nnninnnn 

00040000 

00050000  -- 

00060000 

00070000 

00080000  ~ 

00090000 

OOlOOOOO 

00110000  — 

00120000 

00130000 

00140000 

00150000 
00160000 
00170000  — 
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S?  PANQF  = 0.0 
RO  TO  33 

-53“-PaN6F  = 90.0 

OC  TO  33 

60  IF  (A)  61.52.Sa 

-61-PANSF  -•-190.0 

00  TO  33 
FMO 

-SU9H0UT1NF  PLNST  - 

MEMBFRNAME  R32PLNST 


COMMON  TOP (2.21 .TOE (2.2) .TPR<2.?) .TPF (2.2! ,TFSPR(?.2) .TFSPE (2 

1 TFPRR (2.2) .TFPRE (2,2) .TTPCR (2.2) .TTPCE (2.2) .TTGRR(2.?) ,TT6RE 
COMMON  RIP (200) .OST(200) .OMS(200) .0 In (200) ,BC8(50) .LRCiO) .DOT 

I .RF(90) .LEC(21 «RS(2) «RW(2) .P1P(2) .PM9 (2) ,PN (2) .SS (2 ) . SW (2) , SR 

2 ST (2) ,LBR(20) .LflS(20) »CCOM(200>  » AXYl . AXY2, BXYl .BXY?. TLR ( 200) 
— 3-TLP (200) .THR(200) .the (200) .TRfi<200) .TRE(200> .TRRl (200) 

common  a (?,7) ,R (7.2) .LS(20) .RP(20) .RO(20) .S(5(20) .TRR2(200) . 

1 TRFl (200: .THEI (200) .TLEI (200) . TRE2 ( 2 00 ) .TTFR(20) .TTFF,(20) , 
—2  psP(2)  .Ti-Rl  (200)  . TLR  1 ( 200 ) . THfl2  ( 200 ! .TLR2(200)  .THE2(200)  » - 

3 TLE2 (200) .RL (200) .PCP(2) .PRP(2>  .OMP(50) 

COMMON  IT*  KA.L4.H0IA(3.PRa2tAN6R,ANtiF«TQR«TQE  «JtNS  .Ml.NW.NR 

COMMO*;  K1  ,K2wL3,K9t1.-1-.1-2-,L3«L0»UG-(1O>  .IBRAN 

C1=RS (K4) .PW (K4) 

C2sC1*RW(M4) 

ELNL  = PN(K9) - 

A(1.1)=RW(K*) 

A(1.2)=0. 

A(1 .3)=  FflOa»WP-(T(A.) 

A ( I .4) =0. 

A(1,S)=0. 

— - A(l,6)xO. 

A(l,7)=0. 

4(?,1)=1.0 

A(2.3)=0. 

A(?,4)=-FR02*PHS(K4)*C1 

A(2.5)n0. 

A(?,6)*0. 

A(?.7)=0. 

A<-3.1)=0  

A(3.21=CI 

A<3,3)=0.  I 

A-(.;),A-V«0-. - - 

A(3.5)«-1.0 
A (3.6) sO. 

A(3.7)x-FR(32»PCP<K*) 

A (4,  1 ) aC2 : 

4(4.2)=0. 

A(4.3)i:0. 

A(4,4)aO. 

A(4.S)=0. 

A (4.6)=Ffl02*PRP(K4)*ST(K4)-1.0 

A-(4.7)«0. — 

A(S,1)*0. 

A(S,2)=SW(K4) 

—A  (S  f 3 ) *0 « — 

A(S.4)=C1 

A(S,5)sO. 

A^S,6)»0. 

A(S,7)=-(FUNL>*C1 

A(6tn20. 

■ A (6.  2 ) = 0 . ; — ~ 

A (6,3)»-RM (K4) 

A(6.4)x-Cl 

A < 6-.  S ) • I)  . — 


OOlOOOOO 

00190000 

00200000 

00210000 

00220000 

00230000 

00240000 

00290000 

00010000 

00020000 

00030000 

00040000 

.2).  ooosoooo 
(2.2) 00060000 
<200)00070000 
(2).  OOOBOOOO 
t 00090000 

- 00100000 

COllOOOO 
00120000 
— 00130000 

00140000 
iNPLGOOlSOOOO 

00160000 

00170000 

00180000 

00190000 

00200000 

00210000 

00220000 

C0230000 

00240000 

002SOOOO 

00260000 

00270000 

002BOOOO 

00290000 

00300000 

00310000 

00320000 

00330000 

00340000 

003SOOOO 

00360000 

00370000 

OO3BO0OO,- 

00400000 

00410000 

00420000 

00430000 

00440000 

00450000 

00460000 

00470000 

00460000 

00490000 

00500000 

00510000 

00520000 

00530000 

00540000 

00550000 

— 00560000 

00570000 
. 005ROOOO 
00590000 
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A(6«ft)=0.  00600000 

*(6,7)=0.  00610000 

A (7,1 ) sSR(K4) 006^0000 

A(7.2)=0.  00630000 

A(7,3)=  e(w(K4)  O06A000O 

A(7,A)  =-Cl 006S0000 

A(7.S)=0.  00660000 

A(7,6)=FLNL*C2*ST<KA1  00670000 

A(7,7(=0.  - 00680000 

C3  =PSP (X4 ) *FRO?  00640000 

FSR={TLR(J)-C3*THR(J) )/nS(K4)  00700000 

Fs1  = (TLE(J)-C3«THE<^)-/RS<K4> 00710000  - 

fi  ( 1 , 1 ) =flW (K* ) *FSR  00720000 

R(1,?)=RW<K4)*FSI  00730000 

R(2,1)«-FSR 00740000 

R(2,?)=-FS1  00750000 

R(3,l)=0.  00760000 

• -P(3»21  =0. 00770000  - 

•P|4,ll=0.  00780000 

R(4,?)=0.  00740000 

— B(5»l)=0. 00800000  - 

P(S,2)=0.  OOBIQOOO 

IF(Ml-l)  440,440,441  OOR20000 

-^41-IF  (L4-IT4 -440-»-44-3,4-40 00630000  - 

440  FF1=G.  00640000 

FEP-0,  00860000 

FE3*0. — 00860000  - 

EE4=0,  00670000 

CO  TO  442  00880000 

-443-FEl  «4XY1*FLNL 00840000  - 

FE2=flXYl*FLNL  00900000 

FE3=AXY2*FLNL  00910000 

-EE4  =P.XY2®FLNL - 00920000  ■ 

442  R(6.1)=-RS(K4)*F1.NL«THR(J>»EE1-SS(K4)*FSR  00930000 

B(6.2>=-RS(Kyi*FLNL*THE<J»4eE2-SS(K4>*FSI  00940000 

B(7,l>  •=EE3  -f-7 00950000  - 

“(7,2)  =E£4  0096D0OO 

CALL  matin  (A.7,B,2,CF9,I00>  00970000 

T0R»B<5t-H r 00980000  - 

EER=B<6«1)  00990000 

ANOR«e(7»l),  OlOOOOOO 

TOE=P(5,2)  01010000 

Eei=B(6,2)  — 01020000  - 

AMfiE=R(7,?)  01030000 

TFpRR(M1,K4)=P(].1)/FLNL  01040000 

TFPRF  (Ml  ,K4)=R(  1 ,2) /FLNL 01050000  

TTPCR (Ml ,K4) =CI *R (2, 1 ) 01060000 

TTPCF(M1,K4)=C1*R(2,2)  01070000 

■c— T-T1KP—-TOTAL  TORO(je,  PLANET-CARRIERr-REAl  ■ ■ OlOROOOO 

C TTPCF=  TOTAL  TOROUE,  PLANET-CARRIER,  IMAGINARY  01090000 

TPa<Ml,K4)=P.(3,l)  /fLNL  01100000 

TPFIMI  ,K4>=B(3,2)  2FLNL - — — OlllOOOO 

TPP(M1 ,K4) =R (4, 1 ) /FLNL  01120000 

TRF(M1 ,K4) =B (4,2)  /FLNL  01130000 

TTGRR<Ml,K4)=EeR OIUOOOO 

TTCRE  (HI  ,><4)  =EEI  01150000 

TFSPR(M1.K4)=FSR/FLNL  01160000 

TF5PF(«l,K4)t:FSl-/fLNL 01170000  

C3=ps(k4)»fsr  oiinoooo 

C4=fiS(K4)»FSI  01190000 

G5=C?*R(1»1  ) 01200000  

C6=C?*R(1,2)  01210000 

C TEST  diagnostic  01220000 

iF(MniAe)'  60o»6oe»6oe 01230000 

600  IF(K4-1)  621,620,621  01240000 

620  WRITE (NW, 703)  01250000 

624— WOITF  (NW,700) — 01260000  
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WRITF (NW.701 )L4tTeR(Ml ,K4) ,TBE<M1,K*) t C3 t C* i TTPCR ( Ml , K* ) « 01270000 

1 TTPr.E  <M1  »K4)  012HOOOO 

«R1TF  (NW,  702)  ......  . 012R0O00 

WRITE (NW, 701) L4'.TPR (Ml ,K*) ,TPE(M1,K4) .C5»C6*TTGRR (MltK4).  01300000 

1 TTRRF (Ml .K4)  01310000 

= - - - 01320000 

IF(K4-NrL6)  332«332t333  01330000 

332  L4=LFC(K4)  01340000 

— RFTUPN  - . . 01350000 

333  L4=NS»2  01360000 

RFTUPM  01370000 

7DO--FOPMAT  (/4<(,3MST«*  1X,24HANG.  OISP. -planet  CENTER»1X.  013«0000 

1 pPHTOTt  TOPOUE  SUN-PI ANF T ♦ 2X , 23HTOT  TORQUF  PLAN-CARRIER)  01390000 

701  FORMAT ( 4X,3HNO.,5X,4HREAL.6X.9HlMA6INARYt5X»4HREALt6X,9HlMA(3lNARY01400000 

lSX.4HRFAL»6Xt9MlMAGINA3Y  /I  7 . 1 X « 6E 1 2. 5 ) - 01410000 

702  FORMAT!/  4X . 3HST A » 2X . 22HANG.  OISP. -Pi. ANE T B00Y*2X,  01420000 

1 23HTOT.  TORQUE  PLANeT-RlN6,2X.22HT0T.  TORQUE  GRND.-RING)  01430000 

— 4^03  FORMAT! /1 5X. 6fiHALL- TORQUFS  GIVEN  IN  INCH-LB*  AND  ANGUL01440000 

lAR  niSPLACFMENTS  IN  RADIANS)  01450000 

705  format ( 12X,4HREAL, 6X.RH I Ma61NAPY*5X« 4MREAL.5X.RH imaginary *5X,  01460000 

l4HRFAL’f6X*9HlMAGINARY) 01470000 

END  014B0000 

«**FRR0R***  UN-1 


PROGRAMME  WAS  EXECUTING  LINE  3 IN  ROUTINE  M/PROG  WHEN  TERMINATION  OCCURRED 

-eOMPILE-TlME- 0.22-SEC-*EXECUTION-TIME» 11.55  SEC. OBJECT  CODE  — 


-frlZ-BYTES. ARRAY  AREA»- 


-BO-8VTES.UNUSEO* 


1-9408-eYTES- 
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l)S/^60  ^UH!^»AN  H DATt 


APPENDIX  E 


LISTING  OF  COMPLEX  STRUCTURAL  DYNAMIC  ANALYSIS 
COMPUTER  PROGRAM  USING  STIFFNESS  METHODS 
(D-82/C-51) 
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LISTING  OF  COMPUTER  PROGRAM  FOR  USE  WITH  NASTRAN , 

LEVEL  16,  TO  REFORMAT  RIGID  FORMAT  3 
PUNCHED  EIGENVECTOR  OUTPUT,  FOR 
EXECUTION  WITH  RIGID  FORMAT  1 AS  SPC  CARDS 
STRAIN  ENERGY  CALCULATIONS 

DIMENSION  CARD(  1 6 ) »C0M(6,) 

DIMENSION  FILLER(4),G<2) 

DIMENSION  C0NT(2) 

DIMENSION  SPC<2) ♦DUM<2) 

DATA  SPCSiSPCD* ASTER , BLANK  /4H SP C * » 4HSPCD » 4H* 

DATA  BAD  /4HPAD  / 
data  TESTl  /4HSUeC/ 

DATA  TEST2  /4HTITL/ 

IRK  = 0 
SPC(l)  = SFCS 
SPC<2)  = PLANK 
KOUNT  = 0 
REMIND  fl 

5 READ<5,10,END=100)  CARD»1NTX 

10  FORMAT < 18A4«I8) 

KOUNT  = KOUNT  + 1 
12  IF  <INTX.NE. KOUNT)  GO  TO  60 
IF  <CARD( 1 >.NE. TESTl ) GO  TO  5 
REAO(0»15)  FILLERtlD 
15  F0RMAT(4A4,I8) 

READ<5*10>  CARDtINTX 
KOUNT  = KOUNT  ♦ 1 
17  READ(5,10»END=100 ) CARDtlNTX 
KOUNT  = KOUNT  1 
IF  < INTX.NE. KOUNT)  GO  TO  70 

19  READ(0f20)  I GR I 0 t G » C OM  ( 1 ) , COM  < 2 ) » COM,  ( 3 ) » I NTX 

20  FORMAT<I10,2A4,5X,1PE13.6,5X,1PE13»6*5X,1PF13.6,I8> 

33  READ(5*10tEND=1001  CARDfINTX 

KOUNT  = KOUNT  ♦ 1 
IF  ( INTX.NE. KOUNT)  GO  TO  27 
RE  AD (0,25)  CONT,COM( 4) ,C0M(5) .C0M(6) f INTX 
25  F0RMAT(2A4,15X»lPE13,6,5X»lPE13.6^5XflPEl3.6fI8) 

57  DO  40  1=1 t6 

IF  <COM<I).NE.O.O)  WRITE{6»30)  SPC , I D ♦ I GP I D , I » C OM ( I ) 

IF  (COMCD.NE.O.O)  WRITE(7*21>  SPC  ^ I D * 1 GR I D ♦ I »COM  ( I ) 

IF  (COM< I) .NE.O.O.AND.IRK.EQ.O)  Ul  TE(8*21)  SPC * I D ♦ I GR I D ♦ I ,C OH < I ) 
30  F0RMAT<lX,2A4,I4,12XtI4tl2X»Iltl5)  1PE13.6> 

21  F0RMAT<2A4,14,12X,I4  ♦12X»11»15X,1I  13.6) 

40  CONTINUE 

REAO«5»10,END=100>  CARDtlNTX 

KOUNT  = KOUNT  ♦ 1 

IF  (INTX.NE. KOUNT)  GO  TO  70 

IF  (CARD< 1) .EQ.TEST2.AND.IRK.EG.0)  GU  TO  50 

IF  (CARD<1).EG.TEST2)  GO  TO  6 

GO  TO  19 
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60  WRITE(6»80)  C#RD*IMX 

80  F0PHAT(10X,*THIS  CARD  OUT  OF  SEQUENCE  ♦♦18A4»18» 

KOLINT  = KOUNT  + 1 
GO  TO  ^ 

70  WR1TE(F»R0)  CARD,1NTX 
DO  83  l=lf6 
COFd)  = BAD 

WRITE  (fc»32)  SFC'.IDfIGRIOfItCOMd  > 

WRI TE( 7»fcE)  SFCt ID* IGRlCtl tCOMt I ) 

83  CONTINUE 

KOUNT  = KOUNT  •»  1 
60  TO  17 

27  REAC(0i?0)  IGRD*  G* COMl ♦ COM?*COM3*1NTX 
WRITE<f.80>  CARD*1NTX 
COK(A)  - PAD 
C0Kt5)  = BAD 
C0P(6>  = BAD 
DO  72  1=1*3 

IF  (COM< I)  .NE.0.0)  URITE(6*30>  SPC * 1 D* IGR ID  * I *COM< I ) 
72  CONTINUF 

DO  ft?  1=4*6 

WRITE <6* 32)  SPC*I0*16Rir*I*C0K<l) 

32  F0RMAT<1X*2A4,I 4*12X  *I4»12X*I1*15X*A4  ) 

WRITE  (7*65)  SPC*  ID*  I6RID*l*C0Fi(  I > 

65  F0RHAT(2A4*I4*12X*14*12X,11*15X*1PE13,6> 

82  CONTINUE 

IGRID  = IGRP 
C0K<1 ’ = COPl 
COM('.)  = COM2 
C0M(3)  = COM3 
KOUNT  = KOUNT  •»  1 
GO  TO  33 

50  SPC<1)  = SPCO 

SPC<2)  = ASTER 

END  FILE  8 

REWIND  8 
IRK  = 1 

55  READ(8«21*END  = 5)  CUM  * I D * I GR I D * I * C OM A 
WRITEf6*30)  SPC*  ID* IGRID, I*C0MA 
URITE(7*23)  SPC*ID,IGRID*I,COMA 
GO  TO  55 
100  CALL  EXIT 
END 
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LISTING  OF  PROGRAM  TO  IDENTIFY  AREAS  OF 
HIGH  STRAIN  ENERGY  DENSITY  FOR 
SHAFTING  (S-&8) 
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, 0 01611  non 

,)U  " fl 

..  

ooiTooOo 
OOIROOOO 
OiULSlUliUl-- 

nt;  M*p(0)  r 0 

mo  PF/ii)i»fiN,ion?)riNtX,r»z»NECf II 
UR.  1 ifji*  j.flmma*xj..>'*iUiLauJ-L- 


00300000 

00210000 

-a.02X0.LtlB_ 


375 


IF < k.ru.o.o)  x=o.nnoDj 
ini  K)nK/ir(i3t3Fio.<»*6n »32Xtii » 

JiO.  -4  2D- — 


JF< wc< Ji .Nr.zi  r.o  to  12a 

t)H  r JN  ♦ I 



~ j 

12(1  CONTlNIIf. 

(’.ftii'JlU 


00211000 

00220000 

lUlifeaiUKL. 

00270000 
00200000 
.__lUl23J).0aD._ 
00300000 
0031000C 
OiLUO-oao- 


IKWONJ'I',)* 

HKM'I  = NON 

-DO  2DD  .V-L»fc 

iFir.'cccoJ.Cf  .1)  CO  10  150 
crc(j)=i 


003B000O 
00390000 
J.0  0301)  OIL. 
00000000 
00050000 


CO.J.Q-2J11L- 

3 50  NlCIJl^O  • . 

200  rONTlNUr 

UD4t.Dniin 

00470000 
004^0000 
0115300  do  _. 

22  0 FORMATIFIO.  't,2X.F10.9t2X«F10,9«2X> 

FC7rH0«20j) HOtn 

5n  ) • no  v» T 1 nn  t i 1 

fJQ5^00a0 

00540010 

nnminnpn 

no  3.50  JrP,26»lP  . ' . ' 

' ' ■ 

no  ?'in 

0055D0D0 

C0590000 

nofencncii. 

IFIHOLOl  l.*.rO.XSIGfJ.CR,HOtO{  Il.tO.PKlCMJGO  TO  300 

250  CONTlNUr 
f.n  Tn 

00610000 

OOG20000 

npRAnnnn 

300  HOLn(j-n:H;)Ln<i> 

IIOLtMlJ=AZtRO 

750  r.DNTl^'lF  . 

00640000 
006SOOUO 
01166000  0-. 

WO  I If  ( N'('(  l'»  3511  MM*  (HOLD!  1>«  1 = 1 tS)  ♦(HOLD!  1 ) • I=7«l7)  « 
lOlOl.nil  1 ,5  = 19t,''''l  •<1I0I.0<1)«1  = 31«36»*NDL  »NTH 

rno«#Tc  1 * . 1 V • ^ \ i 1 * <;i  1 k 

00710000 

OU720000 

n074nnnn 

1F<  ll.Mr.9IG0  TO  100 

WniTE(NPCH«361> 

rtivpiifinnirl  ..  

00740000 

ODT50000 

-..wDZiiaoop 

RfTURW 

tNO 

00770000 

OC7BOOUO 

MrMtiro  jutwr  nawnctPi  _ - - - 

SOB  ROUTINE  (lANllMSTIfFtSTRESStNCCLS  tMRI  5M*NX  * lUENODF  ♦ V01UHE  ) 
COMMON  NELRI.Cs  KRtC5«  NRECll,  tSTCOK*  NB*ND»  MXBANOt 

1 MXLrjJD..  .ft):!iClLSi..K0.A3£.»-i).\IJ.EX,-HSa&ES*.XlN-»-. 

2 flS'RtC»ll(iGaiNSTRPS»?(NTLOS,«UOOtl  *MUCOY2 

COMMON/'RONT/ JRLCS 

nropoooc 

.0  0030000- 

01)  040000 
00050000 
01106  OJID  0— 

FOU  IVALtNCt  iflUMRECiURF.CSl 

n' MENS! ON  ST  IFF 12<n2<J*STRESSE2*«2R).NXl29)»EXTRi;2*,2A» 

1 . 5A  vr  • 7*  .24  1 .r  « TR2  1 24.24)  .NCOriRl..  lDliX.iJXOE  R 1 ~ 

OGOTOOOO 
OOO/'OOOO 
QOO^OOOCf  .. 

fj]  MFN;  ION  nr  HNX  ( 20  1 4 STRCS2(24«24)  ♦NNODt  «4)  tNFT  IFF  14)  »MSTKCS(  4) 

1 •1M1<2'1 ) tlNI  (24  t 
nn  9 .1- 1 - 5k 

00100000 
00100500 
06X20000-  . 

CO  2 1=1 »24  , , 

fXTM(I«J>  = 0. 

<,TMS7<1..II  -n.  

00130000 
00140000 
00159.000... 

SAV(  (1  ,,)»rp. 

2 f X TR2 ( 1 ,U)  = 0* 

1 1 - n ' - - 

00160000 
00170000 
00220000— 

no  V9  I=l,NPtOCK 

MTT  1FF< 1 1=0 

00230000 
00240000 
0u25D0  00.._ 

l=LL-5 

ro  99  M^iL.Ll. 

..u:  xwx  iii.).j:iLa)Xf.3iXUJjUXiiiiia£f JUiiia- 


99  CONTINUI 

t:GOLeT--f;ciDC  n > 
DO.  . m-X^S^Ntl.OCIC- 


00260000 

00270000 

-oozaooiu)— 

00290000 

OOS'lOOOO 

-00350000.- 


376 


iF<  Kum  < I ) .gt.ngre, *nNnRtATcNOD(;<  1 > 
10  roHTiNur 

t.i.r.AST.  Noni  ti  > 


DO  U I=?*HHLOCK 

ir( ^Onr( I > .L  TiNlCASTINLCASTsNODtn ) 

-tJUCOlUJf'IJC. . 

KK  = n 

no  1?  lrl,NPLOCK 


00360000 
00370000 
_nju*ioiKW) — 
OOA40000 
OOA6O0OO 

00500000 

00510000 


NNOt'En  jrnopF<  1 1 ■ ■ 

Ml  nil ) -I cm  » 

no  1 0 K = 1 .A  . . . . 

. 00540000 
OD55DODO 
00560.000 

MSTRFSn  )=MSTIFf  «I  ) 

KKK=K+KK 

MFUMl!  f If  1 rWX  1 KKK  1 

00570000 

oosflooao 

0.05250.00 

00  14  J=1 iNRISM 

00610000 

14  £TRlS31.Jt'<)=STHr.SS(J*KKt(» 

00620000 

fin  Tn  3r> 

__55635  050 

HP  KK-KK*6 

00640000 

1?  rOMTIMUF 

0 01.70000 

9 n 1 1 - n 

nnvinnnn 

DO  ?0  !=1,NPL0CK 

. 

. . 0D72000O 

IFltlor.’E  < n.ME.Nl.CAEn60  to  29 

0 1740000 

UNfifir  !9i=ivnnr<  1 1 

nii75nnnn  . 

Mrn<2)- io< 1 ) 

■ 

09760000 

MSTPLf<?)=M?TIEr«n 

00770000 

nn  94  1 ri  sf, 

nD7*innnn 

lLLrL-*LL 

OD800000 

fJEWMX<L«f.)^fi)(<LLLl 

OOAIOOOO 

no  .1=?  iWfi is« 

QDB^DQOO-  . 

24  STRtS?(J|L*6}=STPESS<J*H.L) 

00640000 

to  TO  31  • . 

00850000 

2E>  LU  = LL46 

. 

00870000 

cofjj  , - 

Ctail9J]O0iL, 

31  lFtMRtOCK.tt.'.2)GO  TO  51 

00920000 

MM=ri 

00940000 

nn  an  T^i^MdinfK 

^_QiiQi;nnnn 

iPifjontui^ro.Nf.RrATico  to  39  • 

00970000 

iFtK'CUFf  n.Erj.NItASTlGO  TO  3V 

0098C000 

\ 1 sfjnnr  1 ii  . 

0 1 nnnnnn 

' MtKllrlOd) 

0 lOlODOD 

NSTHEStlliNSTIf  MI) 

D1020G0D 

I'n  .-u  M,-.  t . A 

■ ' t , • 

OlOSODOO 

r,'F.Wt;X(H*12)=NX(F.*15» 

• 01060000 

nn  jev-wrism 

34  RTR?  S£t  J»«4l?)  = STRf.SS«J»MHM) 

01090000 

r.O  TO  4 1 

OllDODOO 

n 1 1 ) nnnn 

40  CONTINUF 

01120000 

41  1F<MPL0CK.E0.3)G0  to  51  , 

3 , 

, ■ V • 

01130000 

^N-P  ■ 

. nil 5nftnn 

no  50  MliNHl.OtP 

oil  70000 

IFtNOOM  n.rO.HtREAflGO  TO  49 

01180000 

1 p tf  rt.'nfir  f f 1 f n ^ N(  r A ^ T 1 r^n  tn  aq 

n t 1 «innrin 

IF  (M0Pt.U).f.n.MM00E<3))Gll  TO  4? 

. , 

01200000 

MNODE  «4)  =NOOtn  ) 

, ; 

01220000 

W7niAi-in#ii 

fi  i^-^nnnn 

MSTPrSl4):M;-,T»FMn 

01240000 

no  44  M--.l,6 

01260000 

AtfUN'rJAMM 

n 1 77nnnn 

MEUMX  (N+ieisnr  (NNNI  ■ 

01280000 

no  44  JrMWRlSH  ^ ^ 

01290000 

aa  ^ fciMki a 

■ 

- ni.^nnnnn 

1.0  rn  51 

) 

01310000 

49  I'NrNN'f. 

0 1320000 

«in  rnuTtwiiP  

n i^^nnnn 

51  cOMTINUr  , . 

r . 

01340000 

INOd)  S 1 ■ 1 

01360000 

J .JC  -„x 

■ -.0^3  75  00  0 
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INK  =1 

01370100 

iNitn  =1 

01370200 

pn  i^n  1 1 - .ftJrfti  S 

n 1 xan  nn  n 

1181:  11-1  ' 

01390000 

tF(NX( IIHII .rO*l)  tNC=0 

01400000 

iMPIlIl  = INniKHIl  ♦inr  . 

oi4tannn 

INC  = 1 

01420000 

IFlPFUNXdlMH.fO.ll  INK  =0 

01420100 

IMIlUl  - t Ul  ( J IKt.l  ^XNK 

ni«9n9nn 

INK  =1 

,01420300 

750  CONTINUE 

01430000 

. .1)0  7Tn  IJ-}  ,NrM  «: 

ni44nnnn 

00  770  J1=1*MCPLS 

0 1450000 

rxTI'2(  ItlCd  1 )(  IKCI«  dll)  = STIFFt  Iltdl) 

01460000 

7Tfi  «Thr<t7f  t > . 1 MII.I  f 1 1 - ^Tnrft»£i|  f-i|  % 

n 1 * 70  noo 

IWPLST  = INPtNCOLSl 

01470010 

INILST  = INltNCCLSl 

01470020 

if-uaxNcoLOi-^Ea.o  > tKouat-s— iiiUiLatFi 

-4U4  70  0 21 

775 

■,77a. 


IF(  IMDLST.Gt.NCCLM  60  10 
to  775  U = INOLSt.NCOLS 

-tux.  JZS-Jl =-_l_,N(.OUS_ 

lXTR?(OI<Ili  =0. 
tXTP2<n,JI  )r  0. 
_IEi..mU..'>J»r.T-^HCOLR>  .60  70 


;t  ~ iiJtL5i*i 

778 


■Jl3_ 


0H7002ri 
CH70029 
01«70030 
-0  1470(180- 
0 1470041 
01470050 
-auizoosii. 
01470060 
01470070 
-.014  70090 
01470095 
01470100 
-ai62.noao- 


tlO  780  dl=  INlLSTtNCOLS 
^0  780  I1=1(NR1$M 

.-_jaa-4i  (U-a27Xi«Ji>  =.  a*- 
782  CONtIHUC 
d«  :0 

on  211  is.j«NcaLs- 


ir(t.'ruN)((t).GT.o)  00  to  211 
dA=JA*l 

ct  ai-u..  jAi  =1.0 

211  CONTINUt 

WRlTt<  91  NUFRft*  NBLOCKi  NRISM*  (N 1 0( 1 )* 1 = 1 ♦NDLOCK ) » 

KMant.n.i, ui  ,iiiHior,Ki« . t.iisTaf^U)  .i=.t«H£i.otK>»  ,j>»  , , 

2((SrRrS2(  I*  JMd:l«0A)  «rslfNRlR7()«IOND>VOl.UnF 
Mr<rc!;=nRtcS4i 
HROyUilL. 


01630000 
01640000 
..OJ6S0080. 
0 1660000 
01690000 
_4x4-7aaao4L 
01710000 
0 1720000 
-01750000. 
01760000 
01770000 

. B 1 


CO  301  lsl,WflLOCK 
rR0Wt=MR0UL*NSTI7F( 1) 
.j^,aauE=yaau.--asiiff.i.Li.4i 


HCOtLsO  . ■ • - , . , - 01790000 

CO  301  Jri,N8LorK  01800000 

8C0l.LJHC0tL*NSTlFF(d)  01^0000^ 

8C0LF=r(C0LL-NSTlFF(dl*l  01830000 

■itaj-LE-i-ai_»-am-.mt.^u...^M.<;TifFtJi.M.<tiicFi.i>^nt  »jRi>iJtTMiT*i=nrrd 


18COLL)iHtMROVF,FROWL) 
HSFRtC  = fISFRtC  ♦ 1 

301  COaiJUUL. 


RET  UP M 
FND 

JlCUatil.  JIA  UC D AJJiXUlU- 

SlIHROlllINl  PATA 

DirrNSION  l.T(999)«NCGI10>»f :t  .')  .U(  J 1 (MOLD  (80  ) tOl  31 

* MnOF(  3001  •F0RI250il0l  «0F((iltMT(99V> 

pirrNr.ioN  oata<26) 

rncHOA'/.iiiHF/  Kn(  .t  xr.t  i .wih.Wfiiii.MPfu.t  .ii.Hni  wAP.MiinF, 


01870000 
01880000 
-1X19.0  oaao- 


01910000 

01920000 


00010000 


COHMOfI /PART /TITLE  120) 
RPCH  : 5 

1 N_s  -in. 


, 00090100 

HI  .HHOOil-IUlDJll- 


CALt  LOAMCR (0ATA»H 
post  stlATAI  1 ) 

: «tXaiJlA-TAi-il- 


RTC=DATA()4) 
IPTnOATAtlT) 
.13ST  IF-EiOaLAJ-iajL 


00120000 

00130000 

-QjOIAO-OOO- 

00150000 

00160000 

-noiTonnii 


ooieoooo 

00190000 
-0-02110  000. 


378 


^"STRti;  = OAT*t^^,^ 

«RME<NRCH,100?)  ITIUEU  >«I  = 1*?C) 


V'Rltr  fNPCH.  1005J  HfiTJFFtMSTRES 
inOo  FOR*'AT«  JJA» 

, — . — uR.iJU.iiiUU.iu  10 > *iJUD«iiiTr 

lOOA  fORPATl  •0(101’*1A«»0400*»IA»*00000000‘ I 
1)0  lObO  1 = 1, J 


U1  I IsOATAU*?) 

G< 1 ) = ri 1 >/<  £.0< (1 .04U(t  )>) 

-Uxso-touxiiiui: — 


• CALL  COORD 

' URlTCdAl  ««,  (MTd),I  = l«Hn) 

*,14.(Ul-RRAO<mU,glTgO>  HOLD 


litAr<0,1120)KT,  JJ 
1 UP  FORflAH  I3»68X,  ID 



GO  TO (1400, 1200,1 300 tlAOO«lSOO>«NT 
1200  CONTINUr 

u'B  1 11 1 tM,xa-ini , 


1270  rORHATDHO  *ERRO^EOOS  CARD  IN  INPUT  DATA*) 
c»ii  rxiT  ■ . 

.4  300  XALt-CU — 


GO  TO  1010 
1400  CALL  IF 
00-10  . D.lJl- 


1500  CALL  '^F 

1610  IF  < .IJ.NL  .9IG0  TO  1100 
UR  T-ttlilRLH.lOOQX) 


IDOOl  FOGMAKROX) 

00  11010  0=1,250 
ILO-IO  UTl.ll  = fl.n 


11000  RrAU(iMN,iiPPi > Nouc,«unAss(ii,{=l«e),  nc 

11001  FOFrAT<I4,6F10.0,15X,lU 

UN-^U) 1 


no  11200  1=1,6 

1F< VRARSIL) .EO. 0. ) GO  TO  11300 
■.lF4A'U...aT«0.)  ■ on  Tn-l.lJ.50. 


fIN  = 1 
= 0 

UlOO-JJ-  s..JvL_l_i 

1F< FAPitiJ) .fit. nonri  go  to  moo 

GO  TO  1 1200 
11150  JJ  = JJ  ♦ 1 

-Iiaao-UT-I  JJ1..-_UHASSLL1 : 


11300  IF1NC.NF.91  CO  TO  11000 
iFMi’T.rn.i  iCtO  TO  20000 


IROOO  FOR  ffATlPlA) 

lF<NTR.LE»firO)UO  TO  lOlOO  • 

UR.tTFJ  6 , 20.0  iaiJiaa,jLtB j 

*itf;=f.j.o 


19100  li  INTC.LE.LRAICO  TO  19200 

UBiTrifc.gnnf.nii  BA,MTr 

l>Tr=LR.A 

19200  RE AD( 12,19300) NR(NC*lC( 101 *10=1,51 

-49300-f4UD4l,T<  13,12>5C-)15.UU 

IFDIR.LL.OlOn  TO  20300 

ro  194C0  in=i,5  , ‘ 

— PH*  MU U.CJ.=CLIiU 


19400  A'C=K'C  + 1 

GO  TO  19200 

-jaiUUL-REJU  lW!-4— . 

RFArilA)  11S0,LRA 

IF* DTn.l  E.HKOIGO  TO  20050 

ufli  TFtfc.pfininiRyic.NTH 

20010  FOPHATllHO*  4MRSC=,IfM20X*  4hNTR=*lH  ' 
NTRrHSO 

40050. 4EXA-LC,  LE,LRAJ.&a-XllL-2Jltftil i 

WRl  Tt(f.,20060)LFA,NTC 

20060  FORMAT*  (HO,  4HLf:A  = , i 6,20X,  4HNIC  = ,lt.) 
UT  lJU - 


00210000 
00220000 
4102401100- 
00240000 
00250000 
.00260000- 
00270000 
00200000 
41021)000  0- 
00300000 
00310000 
4)032000  0- 
00390000 
0040000P 
-00.4000  00- 
00460000 
00470000 
..00510.000- 
00530000 
00540000 
0 0.5501100- 
00560000 
00570000 
.005000  OO- 
00590000 
00600000 
-00640000- 
00620000 
00630000 
-006.4.00  00- 
006SD0DQ 

.00710000- 
00720000 
00730000 
4)074  00  Q0_ 
00750000 
00760000 
410440000- 
00780000 
00790000 
.nOSdODOD  . 
00810DOP 
00B2DD00 
00830000 
-OOB4DDOO- 
ooasDooo 
01010000 
ni  njnnnn.. 
01030000 
01040000 
.01050000.. 
01060000 
01070000 

_04oao4iao_ 

01090000 
01100000 
-01110000.. 
01120000 
01130000 
-01440000- 
' 01150000 
01160000 
-0 J 47000  *L- 
01180000 
01190000 
r.  I gnnnnn 
01210000 
01220000 
-0.121000  0- 
01240000 
01250000 
-04260000- 


1 


?nioo  no  ?ni?n  ti=i «ntc 

<C«fJN),HN=l«NTR> 

rn  ?oisn  UNji.tnB 

2015(1  - C(NN) 

20300  no  21000  Jsl.NIP 


F0n(O«t<>=VT  (01  * PHI  10000* 

21000  FONT  I Not 

nn  ri'ion  .is-itun; 

KP  = 1 

no  2iPrn  ,ij  = i,ntr 

NO  = 

CO  nir.oo  kskp^f.  • 

IFlK.tfuHCOFlJJH  60  TO  21550 

OEXm_i_lU 

21500  COMTirnit 

00  TO  21000 


2lfi00  lF(t'AP(  JJ*1  J*ta.NO)  00  TO  21750 
KO  = K*1 


OP(KK)  = 0. 

21(.5P  rONTINlir 

KE--=.l 

W"  I TF  (0,21  7D0»LT(t.'O)  »l»OP  U»»OP(5»«OP<6) 

21700  FORP.AT<2I<l»fcPntl2.0) 

P.F.lLlKO,  21X2-0  LUOtil 

WRITKNPCH,  21720  ) HOLD 

21720  FOMNAK  80A1) 

60  TO  21000 

.21750-  KP.J_K_*.  ,V ^ 

21000  CONTintlt 

21900  CONTINUr 

URUEXNI'XHt^UlJlJU 

21901  FORPATlhOX) 
nr  WIND  5 

REIUfUl 

END 


1 >,0P<2),0P«3) 


01270000 
01200000 
. 01200000- 
01300000 
01330000 


• ’ 01350000 
O1550A0O 

Dii-IDJUIO- 

01A50000 
0 lAOOOOO 
I 


01520000 

01530000 

0-1 5.40  0 DjOL- 

01550009 

01560000 

0 15-10  00  0._ 

01560000 

01590000 

01600000.. 

01610000 
01620000 
(11630000 
0 1660000 
0169COOO 

0 169.0 1 0 O- 

OlTODDOO 

01710000 

01720000 

0-17.30  000-, 

017A0D00 

01750000 

01760000 

O177DD0D 

01760000 

m 75.0  00  0- 

oieooDoo 


-Jl£JlBl_R_taH 0166.1 

fUDFOUIlNF  OF 

016(7)2 1 ON  It  (999),HGR(3),fl0S«4»-!TPC{3 

111  iit-NlJ  ON.  Jll.liias  J-,NAP.(3fl0i.<.llUlCILL3U-'U_ 

COPNON/ofNr  / K OP,L  A CL  T »NIN  , f.’OUT,  NP  CH 
FOUIVALFNCE  ( 1 0 ,Nor.  ( 1 H , < NO  I , HO  S(  2)  1 , 


)«MCLD(60),Ff 3)tU(3>,G(3> 


00010000 

00020000 


901  FOHf  AT  ( I3,3I.'<,  I 1,3F  10*5  > 

902  rOR7!AT(*0'l’,3M,AX,3lAl> 

tO-.Rt  Atl  0 ,3i01J.N05.*PiC.,JPX 

VP  nr  (2.901)  NO.P.HCtTP* 

IF ( in.NF.O.ANO.  in.NE.SlGO  TO  30 

lf,llC.*Ul.iLl-£!JlS-l ^ 

IF  (TPC(2).HE  .O.niGO  TO'  21 
IP  ( TPC  (.3)  .NT  .0*  DlOO  TO  21 

IPCtZl  slP-lLM ... 

TFC  ( .3) -TFO  ( 1 ) 

21  NOl  -LT(M)1  1 

. fiDZ?lXUil2J 

PO.ArLTlPnS) 
pn  I nt  6=90(11 0/6 

wRlJtia.iou.itEC.,t(Ma,..GuiCJ 

ion  FOP7AT(1P710.3,  IPl  1 0 . 3 , IP  11  0 .3  ,.?PF  n . 1 
RE  / ('(  0*  101 1 POLO 

in  1.  FILE-KAliUOAll 

UR  t TF ( NPCH,9  02I nGR.HOLO(2), (HOLOl 11,1 
1 <HOLD<  n«  1 = 1 4*1  F),ll0Ln(20>,M6l  0(221  «( 


.L.U.HOLD.G* JN,HAP,HD0F,H7 ,HHD 0030 000 

IND2»NOS( 3)) , (N03,N0S( A>  » , 00040000 
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1 r.F  I V < ,tif  jyo  kill  [ XI-  .r.nXF  «E  «0»X  YNOOFl  ) .T  (MOf-Ll  > ,Z<Nni/ri  I fXAI  NODI  1 ) ♦ 0 4 7ROOOO 
:'Y4  INOI'Y  1 ) , 24  fflllK  t ) , y<M0lif.2)  , Yir.OPf  2>,/  IMlliI  2 >,  XA  <1101)1'  2 I.  YA  < hOD  t2  »0  4 790  0 0 0 

— it2-Aii;oui:2J  .Y.tUL'L6(i.Qnm..KfiKLDJKi:DL.y.Y.  i:jul  > tuniii  1 1 . tMit  x nifim  pi • 0-460DaoQ_ 

4 I I T ( f-'P  ( ’ ) f I -34*  r H > 0 4610000 

CO  YO  12  04020000 

illL  ir.l  I.OQO.LQ  . 1 ) 60  TD  _12 OkHannnfi 

IF  < f 01)1  Y.l  1 .0)  Of  TO  040  1 04650000 

WO  I ir  ( 4 ) I if  0, 1,(1 1"  1 iN0r>F2.N0nF3»1'C0n<  » AXAFI  a flllYY*AYYk)<I22«AZ2»HJ»0  4860000 


PiX  ( l.onr  2)  1 Y Cjonr  2)  * 7<M00C2»*X<NOnr,  3)«Y(HODt..4>  ,Z<N0nL3l  »yA(NOUE3)* 
3YA<  l.otif  3)  .27  <^f."f  3)  . 

1 — K^QFir.fl«fini)f  1 1 .KaiiFniMniiFPi  tiHni  ximiDf  1 ) . iNULKinorii  ?i . 

5 < I I f up ( n , I Z36«6R J 

rP  TO  1? 

21'J--1F.1  i;06tt.-La^J_72O_I  O-Ja ■ ■ 

I'M  IT  ( 4 1 11)4  O.IU'PC  1 .NODI  Z.AXAftt  Att.XCNPPEl)  tYlNODLl  > *7  (NOUF.  1>» 
ix<(;0l'l  ?).Y(f;Otlf  2).7(hOPL2», 


04800000 
04890000 
_D  49  0 0 0.0  0.. 
04910 
04920000 
_D_499DJ)a£L 


04950000 
04960000 

IMlt JLUJOUCa J . < • L= 0 4 3 70 0 0 D . 

04980000 

04990000 

05000000- 


LISTING 


j'KOM  n<  Ncof-U  «Krjt)r.o<uoDE2j  kiuaex  tNoaULi 

3 I(.  .(-0) 

(0  TO  12 

130  .1  0F.::A.i<2.x..U'is.. 7.aj 

13?  f-r)K^tT  art  // // t2bt***»*  INPUT 

1 //X/7//X/7) 

. ...4?9.  f OKf'ATdUJ  I 

100  f Of'f'AT  (614) 

50(1  10H1  AT  ( //25X.  • ^ • CONTROL  INPUT  «•••,//» 

120yi26H1iU8P'R  OF  STFUCtURAL  NOOFS*  I OX  « I 4 / / 

2?0y  .1  7)'M'VPFR  01  4~N00tS,19Xfl4// 

. ..  320y.21)!1.U1'HLR  .01  LOA,ti.XONDS*U.SX*  UO 

505  f Off'M  ( im  , /4bX  1 ’ • C00R011IATF  INPUT  ••♦•,771 

507  KIRVAT)  liy.DIf'Oir  M 0 , , 1 9x , IHX  , 15X  * 1 H Y , 1 5 X , 1 H Z » 1 2X  , • F OUA  T I ON  CON  TROO  5 0 9 0 0 0 0 


• • •*  905000  1 00 
05001000 

050 lOOQO- 

05020000 

05030000 

050  40  00  0 

05050000 

05060000 

_05n.7BD0a. 

050800DO 


R P 0 R 


R R 0 


. u* . inx.,',Hinr!{.x»y.) 

101  f OfPATI  i''i//inx,45Mr 

I'M  Tr,i4) 

102.  r 09  CAT  (11117/ 10X,4  4)ir 
1 13»ICAf OS  PFAP  IF. 14) 

107  rof-PAK  4111  .6) 

rOFOAK  I15dX.A1..12X,JLL6-,i»yj_. 
f 06 '’AT  < 1 HI  ,*5X.  • •••  F t t M t N 
FOr.  “AI  ( IHI  , 4 5X  . • • • • LOADS 


- THC  NDKHLR  of  A-NOOt  CAROS 
O JH£_NUlmLR..  OL_SJJ(UCTURAL  JilOUL 


506 

50F  f 06 '-AT  < 1 HI  ,*5X.  • •••  FttMFNI  IllFUT  •♦••/71 
509  F0I;“AI  ( IHl , 4 5X  . • • • • LOADS  INPUT  **•'//) 

.510  FOFPAI  ( 1 15,  14y.  ,31  1 6 . Tm 4 X f 6 L?J(.#XL1  tLOX,  15.,/ ). 

111  F OF ’AT  1 IP, 1 5 A4. A2 1 

112  F OF '(AT  (414.  A]  , 6 I P . 3 ,7, 1 1 , 2E5 , 1 1 

IPO  TOP  PA  T<721  7,  IX.  I’.,?X,  A J,2X.6E10.3,2X,6U  ,?X.2F12..M 
127  K'Pl'AT  <7/ ..4X,  ' (LLM  NO*  ,2X,-4  10  * , 3X  , 'JJl  * . 3X  , '712 1 ,3X  , • N 3 ' ,9X  , • ARL  A ♦ ,0  5 1 92  C 0 (I 
17y,*lT',iy.»AY'.*'X»*IZ*,RX,»AZ*,8X,*d*,PX,»riNS*  ,inX,>F*,llX,*C')0M93  000 


0509500(6. 

REAnt  05100000 
05110000 
..051  20000. 
05130000 
051 40000 
.0515000  0- 
05152000 
05154000 
-.05160000 
05170000 

051 8(1  one 

05190000 


1 77.  .ly  . • f I ' NO*  ,2X,  *ID»  ,3X,  *N1  • ,3X  , • N2»  ,1  4X  , t xn(  A*  , 18X, 


12  4 (O'  rr T 

12’  t OPCA  T (/PI  7. 1 X . r r , 1 IX, T 1 n«3  9) IXtP 12.31 
12  1 ( nr  PAT  ( / rnx . Mfp- 1.5 T - • ( 14 .71 
.5401  roi  f'A  I (/ lOX  . .I'jUl.M  OF  the  NOOf-NUMRCRS  IS  1 12  f.KRO Fi/ ) 
.jttiA  F 0"  "A  r I 71  OX  . P6U  IMF  AXIAL  AREA  ] F-  IN  LHHOR/) 

9 405  FOKPAT ’/lOX.  15HIYY  IS  Nff.A1IVF/> 

94  0 6.-l£).mA-I  I 7 mx  , LM6A.Y  Y-4.S.-tU.SA  T IWC73 


05194000 
-05195000. 
05196000 
05200000 
.05210000 
05220000 
05230000 
-<152  41100  0.. 
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fOri'AT(/iaXiirH172  is  KI,G»TlVf/»  0b250000 

'’'tnn  rCI'l7T</10<ilOMA7;  ir  HrOATIVt/J  0?260t00 

-a'lD*?  . I0'i!7  T.t/.lox  . J JS  .MtGiT  1»L/J- 0!i270000 

•’Aif.  ro'''''AH/inyii3i'r.  is  nigaiive/)  osaBoooo 

9‘II7  ron-'f.Tt/lOX.l  jl't.  IS  Nr&ATIVF/>  OSZ^DODO 

of-''jLU.7iax-, jt-iMo Lt— nE._im.  x-coop.ti iiiuu ls._i s_.u uAU-to-itaxuj m o oo- 

ro^A-ATi/lOX^AOMTHfRt  IS  AN  iLLCGAt  CHAPAClf.R  IN  cOL.  lb/)  05320000 

9A2?  ronMAH/J0X»37MTHt  FIxItT  CON7ROLS  FOR  X Aht.  UNFOUAL/)  05350000 

-aA2i  JORKAll/XaXj-AillltT-  JlND-  JlXt-JiUil  UC  -Eiisn  I VE  Om-tME  fiX4-T7 053AOOOO  . 

i?R"rc>MTPflLS  rnii  y kust  be  )/»  05350000 

9020  FOI  ' »T</lax.0AH177  ANO  AZ/  NUST  HF  f'OSIllVL  OR  THE  FIXITY  053FOOOO 

La.AtELai:TP.nL.s  ■r.Di....x-Rur.T  -itE-A/J asjiiojuuu 


“OPF  FO<!f'AT(/10X,AbHlF  d=0  TfIC  FIXITY  CONTROLS  FOR  X MUST  EQUAL  1 ) 053B0000 

b'tAI’  rORPAT(/10X,31HTI  . TX«  ANO  TY  MUST  RE  I'DS  I T I VE/ > 05AIOOOO 

_y  4<tR_FOf  tlA  Tx  /-lIlX*.JJU.UCnr„..A_4i-i;QJUAl.-aD  ._UE.ro/.  ) 05A  2 0 000. 

IIA  rOR«AT<AlA»,M7.3«2E5.1)  05A30000 

12?  ForPAT</PI7,lX.AI5,5X,EI0.3«10X»E10.3*10X.E10.5i5X,2E10.5)  05AA0000 


700?  ICf-FAT  <//».5Xt  "LEM  NO»  .2  Xi  ♦ IO»  t 3X  i » M • « 3X  ♦ ♦ N 2*  « 3X  , • N3‘ » 15X  « • T S*  « 05442000 
1 l8X,*TX»»lRX**7Y»,lbX**E».«»X«*C*)  Cb4A3000 

_Xn04  -fOa('A.t_<7y«JX,-ULtM-NO*  ♦2X4JUat  «3X*JJi(i,«^AX,*.*M2i*JX**U3-'-.3X».!JilA.»., — 0 54.44  00  0 
U0X,*TS*.inX«*TX*,inX.*TY*tl5X,»l*«9X.*G«)  05445000 

115  FOFMAl (/5X, 10H**»***o**»*5X»27MIHE  SEPARATION  ON  CARD  NO.  tIS»  05450000 

l-um...tr.  .uin -EARsrj (ibAioimfl- 


rlbfFSIOP  APLUS<(i) 

2000  VR  1 1(  ( RfbO'n 

.-22/iti_j;OF.'lAa  .llil!.».__.-EU f)DUI_*5X»4HC0ND-«aJXi  aB£ARO_Na.yj  . 

MR  ITTIf  .??Ff  1 

?001  RFAPI  If!.  1 in  3)  UOnFr,{(lUBnYll)it  = l*19> 

_tfjLt.au.EL.i;L.JU r.n  to  .x.xnn 


IIRI  TtU  »1213)  (*;UKHTtl),I=l4l9) 
to  TO  ??00 

.__330  0 .WRl  IL(n,gi4  7£,HljUi;KYtI)  »1: 
RrAn(nt?pO?)  KONUNO .ARLOS 
2002  rof  "ATI  1 A ,<•(  12. 0 ) 

IJP.La.)-T_KRCC.U-t-J 


IF  ( (fooi  E . rr  .f  Ar.r ) .Afiu.  inodec .1.1*  *NSTNns»R'BAsr)  >. and. 

HROFriMO.fiF  . n . Af.D.IKONllNO.LE.USTCON)  1 00  TO  2100 

0002  FOF"AT<IX  liti.*  IRROR  « • , 219«0E  1 5. 6 ♦ I 5) 

E'R  I tt  02)  UOIEl  1 KONONO*  ARLDS.  NREFll 

_ .00  .10.2PJJ.1.. 


2 100  wpinif.tFon  Ntrrtt  kondmo*  abeus.  nrlcei 
ROllPF  p tJOTiFF  .(..'Pasr  ♦ 1 
IFtNOOO.EG.ll  lit.  TO  2001. 

UPlTIdl)  NDUir.  KONONO.  ARLOS 
fit-ol  FORMAT  ( 12X2  19. M 1 . G . I 9 ) 

GO  TO  2001 

2200  IT  (f.OtO.NL.  1 » V>  111  *6.220  2U 


220?  FOK-ATl  //5X2FMrn  FPRORS  IN  tOAI’S  CARDS..//) 
RPTCPf 
.UJu  _ 


05500000  . 
05510000 
-05530000.. 
05540000 
05550000 
-asiStnaDo. 


05570000 
05570100 
-JQ  5570.300 
05570310 
05570400 
_Jli5flIUEO.O. 
0 5590000 
OfiCOUOOO 
-.05610  000 
05620000 
05630000 
--0.56,40000.. 
05650000 
056600DO 
. 05670000 
05680000 
05690000 
05700000  . 
-OSnOQOO 
05720000 
05730000  . 
-HSilQ-OOlL 
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MLfbf.t.  b'ft!  !,  . -LCJAUt.r.l 

Jill  rrii'T  I f ( n ( AWK  ^ Y *t<ODC» 

CM:n«  b)  ,,<nR*y(i),ARl<f20) 

/ I’ftFI  / TITLMSO) _ - — 

rn  ir  ( i cn^  rcn  i .rutiii 
ino  i.T  Ai  ( ib«‘»n] ) Am  A 

.<lOl  1 Ol  ’ A T t 2DA‘(  1 , ! 

WK  t Y(.  <P»'ini  ) AHIA 

Ff  Ai'*r,  1 pi>  HFaii-,Mofc*c>Bn 

101  FQlir'AT  ( IA»L1  .liL  IP  .7  ) 

IF  ( raa'i  .LF . 0 ) I'-r  rti  303 
ir  ( Kit  e .Lt  . (I ) (lO  TO  303 

IF  L zJi ) l.Q'7.»  J.OJ  tlQIl..  — 

IPO  IF  ( Af|FC-H)  1 02*  1 11  * 112 
105  DO  nr  «irAKn^i,Kipr 

..  . aAKr.AY;r:r,U'i.  ♦ .JCAP.U  - 1 * 

ISO  AOF  AYIJAPOAY)  - CARPI  aC  «f(0) 
r-o  TO  ino 

._iaz_ru; AL tiu. tuu.)  aiii_A 

WRITKP.AOl)  aula 
I'D  AtitOtlOS)  TlTLt 

. .-ICi  rODDA.I  t20A‘‘ 1 

IPA  FipAta  1 0 

oc  1C  no 

. - IIL  PXTURtL 

112  not' 

200  M'AOr  - KOACf,  < 1 

VR I LL!  In  2 0 U _.(.L  1 TJ-LlfCl  t.K=.l*2JLL»NPAll£ 

201  f OF'AT  ( IHl  1 rOA'i.l  nX«6H  PAGE  fI3t//» 

RflURN 

3ll 3 yBiTL16.30A»Draif.MnPf.APBAY 

TOR  rert’ATORH  INVALID  DATA  CARD  ♦ 1 4 ♦ 1 1 .45L1 1 * 7 ) 

nop 

r.  Nil — 

JlLPGf.k  X.'AM.  Al  l.'Clil 

roYr-ni:  cfiofc.  NPccilt  lstcon*  ndand*  nXHANOy 

I wxifon,  KNODS.  F'BASE*  riGTIFF,  HGIRFR,  LIN. 

.2  . »;rf  Uf.C.tK/CC'.MSlRF.S.K-N.T-LIlS..7'.UDDYl,HUDilT2 

r()i'"(iN  m<rDT/jof  f <• 
fOF'fofiAjiii  Y/If'f.( 

.. ..  co'':'.ot:/LLx:cKL/„iiLFrtitu 

CALL  ronr.r.i  <20‘'.3nn»-r> 

2 prulAip.  A 

RFV'INP  F.  — 

F<>'1N0  = 

Pro INp  1 1 

CALL  L'AIA 

CALL  IMPI/l 

RCLIflO  n 

CALL  CCMRIN  

CAl L FYll 
IND 


0 00  10  000 
0 001.0  000 
OOObOOOO 

oooKonoo 

00090000 

aaiagciiao  - 

00090200 
00090300 
001  00000 
0 01  1 0000 
00120000 

aox3oouo  - 

OOIYOOOO 

OOlbOOOO 

00160000 

00170000 

OOIHOOOO 

—ooianaoa 

00190100 

00190200 

..-_00200000 

00230000 

00240DOO 

O-D25nOD0_ 

00260000 
00270000 
_.l)Q2bQD00  . 
00290000 
O03D0000 
0 03  in  non 
OO32OU0O 
00330000 
__1LDA»1I  OH 

00040000 

00050000 

O.OD60000 

00070000 

00090000 

0 0.1DGOOO._ 

00120000 
00130000 
0 111.40  00  0. _ 

on  ifioODO 
00160000 

U.OlJ.DDatL, 

OOIHOOOO 

00190000 

...00271000  . 

00272000 

OO2B0ODO 


aXKEJ-n-  NA.M Li.lKU2.fe h i 

rUPI  ODT  INf  PATDUr  ( A .P.C  .F'RA  »NCA  ,NCH) 

Dim  NR  I Dp  A (24.2'!  » .f<24  ,?4>  .CIPR.RA)  .ILDPIR'I) 

. DOUllLL.  TRLClSlUN..U.t.»F. J— 

nn  3 1=1  «fin  A 

in  " U=l,L'Ct' 

I’D  1 r-unif 
A ( m ) 

1 r=i'>t*f 

2 Tl'tl.lKD 

DO...  3.  KK.il. IJl.L 

3 r < I . KK ) rTPPP IKK  » 
r<F  IMA'- 


0 on  1 n 000 
00020000 
00030000 
00040000 
00060000 
-000  60  000 
00070000 
onoPiOOon 
00090000 

oni oonon 
001 loouo 

-OD120UOO 
00130000 
00140000 
. 011150000 


JlLKHl-U  tJA:.( 1 Ki.MLIil' 1 

ru'uoi'iifjr  TKifit,  oooinooo 

CO-'^ON  ITlfF'lAn)  ooo.Kiobo 

C01'['i0f;/.r;L0£Ka/_. NK12JH..S1<?A»2(.)  OD'''iOOOO  . 

lTRAVi.M?'l,?A),l'l(?‘*»?A»,U?«2A*2<t»tU5(?A,Z'II,U'i{?<»f2‘l)*U'j«24,2A)  OCObOPOO 

p«raHif(*)  oofiAnpoo 

cJr.LUU  tK  an  J < laANS-CiiJJ __jqb  o J.o  o o q_ 

riREF'PirM  lHUl.yFP)  ■ OOOBUODO 

f oil  IVAI.EMCf  Uf  f.r  ( 1 ) « I tF  nP(  II  ) 


N'OL'I  (1  ) -11J.KP{21 

f.onnp)  rni  "im  a) 

MOOr  «.'>rIT£Pt'(0) 

IS  - IJLClUIi) 

T)(  = TF"l'lf) 

TV  - tr  vt'  ( 7) 

t = Ttvri  I ) 

r.iTfF'PF'i) 

XlrTEPn  10) 

YL^TUULtXll 

Pl^Trpfd?) 

X2=  irvp  1 1 .7) 

tr- TLfF  ( lOl . 

22  = TFMM  IM 
X3  = n F F'(  If  ) 

-yi=  iLiiLtu.), ^ 

?J=lf  •'P(IP) 

CALL  lIPpAK?  < ni  FT(  tO)i  KX(ll) 

CALL  .Ut!PAK2  < 1 7 Lt'.P  ( 2 D > ._UX.UJj 

CALL  IJf'P  AK27  I Tl  TiPI  21  » « NXflSlI 
iNorx  (1  ) = nriip  < 22) 

..  1 N 0 LX  t 2 ) = 1 T L "1LL2A) 

lA'Crx  ( 3 ) = 1 T t I'P  < 20) 

PO  20  dr), 20 

00-20  7 = 1,20  

SI  ( i,.n=n. 

22<  1 1 J)  = ti. 

— IR  At;L£XI  . J).=  Q. — 

20  TRAfIS  J(  l,d)  =0. 
no  2't  0 = 1,3 

£0  .2A,J  = L,A 

2A  TRAPS! I, J)=0, 

HE  TA:Y2*23  + V1 •;r«71 *T3-<Y2»ZlPt3*72*YJ ‘ZS) 

J]i&TH  = XXPZ3«.22«XA*2-l-«Jl2,i-tXJ«Zt-XXl  A7.2-All2t  73) — 

PFTCiX  1,Y2* Y1*X  T + xr’ Y3“«X  3»t2AY3*X 1 AXZATl > 

GOsr&n  (nr  x A**2*r,iLTR.*2*DrTC»  »2> 

0 = L OR  XU  X 2 - X 1 J • « 2 P ( Y 2,?  Y t )AX2>J-22-  ZilJk Ji  2 ) 

TRAPS!  1 , 3)  il'r.X  A/C.r, 

XR  APS ! 2, J) =P(  Xn/GG 

tR  iJJS  ( ,’n  1)  ICV.GG 

XRAPS! 1 ,1 ) = ! X2-X1 ) /D 
TRAPS! 2, 1 )=! Y2-Y 1 )/0 

— iRtl:SAJ»l)-l2.2=ZlJ/li — 

XR  AMS! 1 ,2)  = TRAr'S!2 , 3) < T RAWS  1 3» 1 ) -X R ANS < 2 » l)»rRANS!3»3) 
TR  AM?!  2,2)  = TRAI.'S!  3»  3)*XRAP'S«  1»I  )-TR  ANS!  3,  1 ) • T K A KS  ! 1 , 3) 


PX1=X1  MBAAX  < 1 » 1 )*  V1*XR  A)JS«2.1)  »21«I(!Af!S!  3»  1) 

{>r  1 =X1  •TRANS!  1 ,2)  ♦Tl»TRAPS(2t2)P71*  TRANS!  3,2) 

tUU  =XUJRAMSl  l • 3)  PY  l.*taANSL2^.t21>JRJlNSt3»  31 — 

RX2-X2*XRANS!  1 , 1 ) « Y 2 * T R ANS  ! 2 ♦ 1 > dP*  TRANS  !3»1? 

PY?=X<'*IPANS11  •2)*Y2*XRANS<2»2»»<2*TRANS!3»2) 

P72  = x:  •TSAfir!  1 • 7)pY2*TR  ANS«2,3}*72»tRAt)S»  513) 

t.x  3 = y 3 * I F.  A N ( 1 , 1 J ♦ X 3 • T R ANS  C 2-« il.P /J.*  I R.ANS  t 5 ♦J  L - 

fY3  = X3*TPANf(l,2)*T  3 • T R Ar;s ! 2«2 ) 3 • TR  AN  S < 5 , 2 ) 

P7  r.  = '<  ’..TP  AN;  I 1 . ',)  t T 3»7RANSI2f3»  *2 3*  TR AN S C 5 * 3 > 

ISf.=,T-L<G . 

X,32  =RX.X-RX2 
xi3=xxi-ry3 

— >2i.=  !;xrT.Lxi 

Y23=PY2-'Y3 
Y31  =PY.’.-I  Y 1 

^nzraYi^xjra 

RNt  P2A  = 1 . / ( PYl • X32*nY?«X15*BY3»X21 » 

API!  = !r  / ! 2 . *0  ) ) - 1 « 

..  — 0X,,.=  .t.i'.u ..  . 
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..OD120000  . 

00130000 

OOIAOOOO 

^—.JlQlbOOOQ 

oniboooo 

OP170000 

_QQlB00t)D,_ 

00190000 

00200000 

0X1210  0 00^ 

00220000 

00230000 

C02AD00I1  . 

00230000 

002GOOOO 

0-027110  OIL. 

0 o2fio  0 no 
00300000 

0031Q£)00_ 

00320000 
0 0330000 

DXL5.<IQfl0  0_ 

00350000 

00360000 

00370000-, 

n 03ROOOO 
00390000 

0 DAQao ao— 

0 OA  10000 
0 OA2DOOO 

ooAsaooo. 

noAAooon 

OOA60000 

aoAjojooo- 

OOAROOOO 

OOA9OO00 

OOSOO  ODO_ 

00530000 

DUbAOOOO 

00550000 , 

00560000 

O0b7O00P 

OObBODOO- 

00590000 

00600000 

OOblOOOO- 

00620000 
00630  000 

J0  06A0OO0 

00650000 
0 0660  000 
0 0670  000 

0 O6ROO0O 

00690000 

00700000 

007-60  000- 

00770000 

00760000 

.00790000 

COROOOOO 

OOPIOOOO 

ooezoooo- 

00H.30  000 
0 ORAl OOO 
, — ...00692000 


r.y  = Aru  * tx/iv 
if(tx.i.t.ty»  gu  ro  jo 

£x,^.Ay.u  « .JrxiJi 1___ 

CY  - A’-U 
AO  COt.'lIMT 

. t.:  t / (i.-c-xxrYJ - 

ARlf.  ; *I'Y1  * Y’L'  • HY?  ♦ Xtl  ♦ HYA  • K.PI)/?, 

VOLIICf  r Tr,  ♦ AGFA 

cQiiSi-.r-Aioni  ( tji&LAAixJXt?.  *r ) I 

ri(i,n=L‘YrA 
'i<  1 , r » :r  ♦r.>  *x  A2 

l.I)tL*YAl  - ..  

J 1 < 1 , A ) - 1 • r,  X • >'  1 A 

n C 1 ,■  ) rf  * Y1  ? 

111  iifcXsL « r-yjixsj ^ 

ro  AO  i = iir, 

AO  SI  f t 1 t ) = SI n . I)  ‘ COMST 

. . . tONSI -r.  SGR1  t ( A11LJL»I.Y.)  /.12..*JLU 

SI ( ;'» 1 )=»  «r,Y •YPA 
SH  ?.2)rr  »X  A? 

S 1 C 2 , A ) - uj:  y.»xaj 

51  ( r* A ) :r* XI  A 
ru?,s)ri  *r,Y«n? 

rH2,fc)rL*X2t 

no  ?in  1 = 1,0 

rn  SH  2,  I)  = SH  2,  I » * CONST 

c 0 r f T ?,s c (U ( A i.r  A«Tr)/<2.o*r.i 

;.i<A,i>  = o»x  ir 
SH  A.2)=G.  ytA 

SH  A,A)=C*X1A 

$ J ( A,  A ) :G»Y A1 
sHA,')  = r.«y2i 

;;  1 1.3 , 6 rr.  !L‘ js  Li — 

tin  on  1 = 1,0 

60  SHA,  H SHA,  I)  • CONST 

SHAtl)  =TSC*AAr,.. 

SH  A,?)  = TSG*  Y2  A 
SHA,A):Tr'G*XlA 

iUAiAiliT.SCilil 

SH  A , 6)  = T Aft*X2  1 
SH  A,0):Tr(i*Yi; 

’ ’ 00  1 I -t ’ A ' 

1 SH  I , J)=SH  I ,0)  ‘Of  t G.-'A 

;.2<  1 , 1 ) - V?A“2‘  TX,f.  ,X  A2“2*TSr, 

t2(:.,i,J=.X3;'..‘Y2i.*((.Y  • 1Y*LMSGJ 

52  ( ;• , 2 ) = y A2  • ‘2  • 1 Y ♦ Y.'’A“2*  TSG 

: 2 ( A • I H Y A 1 . Y 2 ' » T Y , r ♦ X 1 • • X A 2 • T S G 

C2U»llJ.iY-il  AtY2A*-TSl. 

r2t’..7-)  = YA)**?‘TX»r*XlA‘‘2«TSG 

72  t <1  • I ) = x 1 A * Y2  A *gy  * TY*l  yY  Al*X  J2  *Tr.(- 

r.I  tA.r)=X13‘XA:!‘TY‘C*YAHY  XJAJ  S C — 

‘2(A,3)=YAI*X1.'.  •<GY,TY*'»TSr,) 

■i*,2,TY»i  *Y»l.*?*Tsr- 

LT.  iS.tJ.0.  = Y12A_Y2'A.*.lX»-L«Y21  ‘XJiA.taC 

72(t,r)=Yl2*XA2,'X‘TY*r»X?l»YrA*TS(, 

S2t'',x)-Y]2*YA1*TX*1,X?]‘X1A»TS' 

S2(.G,AJrYl2‘XlAAtX,TX‘r  + X21.*.Vil*-TS6 

r2«'.,‘)  = Y12‘*2*TX»l,XPl«»2»TSr, 

S2  ( ( . 1 ) = X2  H Y;’A  *0  Y‘  1 T»C  yY  1 2*y  52«TG(. 

SZLC.  ZJ.,=  Xil-tXAi-O.  I YJlLoYI  Zk  Y 2.i*XS  U 

S2t',A)  = Xri*YAl«GY*TY.!:,Y12*XtA*TSG 
T.2<f.  ,A)  = X2HX1  A*TY“  ♦Yl2»YAl»TSri 

£2tl-..lj  J.iX21.*.Yi2*<GY*  JY-*E*TSt4_ 

( ,f  ) = X21  »*2«  lY*f  ♦Y12**2*TS& 
in  2 .):r,6 

no  2 I = 1 ,f 

2 S2(T,J)=S2<.I,I) 

GNLaAA.-:..ii«Uljr,02A.  


OOeAAOOO 

OOHAAOOO 

0.flBA5000_ 

OOBAOOOO 

OORATOOO 

OOBABDOO-. 


Q0aA9L0Q_ 

OOeGODOO 

00060000 

- ODttTOOOO  . 

0P8P0000 

00H9000O 

ooijo  0 0 0 o_ 

00901000 

00902000 

00903000 

00910000 

00920000 

D0  930.QOO_ 

00990000 

00950000 

00960100... 

00961000 

00962000 

D096500J1_ 

00970000 

009ft0000 

0 0 9.9  D 0 0 0 _ 

01000000 

01010000 

Di.a2oaoo_ 

01021000 
01022000 
oieaoooQ 

filDAOOOD 

01050000 

1_DJ10&.CIP(1Q_. 

01C7D000 
01 OBOOOO 

0 1 100000 

01110000 
V I 120  uoo 
0 1 170000 

0 1,180000 

01190000 
0 I 20011(10 

01210  DUD.. 

0 1220000 
OlPAOrOO 

B 12A0  ODD  .. 

0 1 250000 
01260000 

oi2.7ano.D  _ 

0 12POOOO 
01290000 

OlAOUODO  - 

01310000 

01A20000 

0j.i30  00t_ 

0 13AOOOO 
OlA'iOOOn 

HlAtDOOO. 

0 1A70000 
0 lAlOOOO 

61.4  2 0 0 0 Q._ 

OlAAOdOO 

oiAAonoo 

B.lAHOODfl.  . 
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■jy.tLL 


rr 

( 0 1 - 1 . 

ip;'' f;’M  ♦‘i) 

IRAkSr  t Ubl 

TRA(  Ti’ «?,<!) 
IKAKTPtZ.fi) 

TR\f;SC.t.;%.LJ. 

TPAAE?(’.,in 
TRA  r rc<.’. .11 
— TRAURyt.''..!? 
TRArs: « A. 1 n 
THARS?(A,1 1 
IflAl;??*  A»i; 

TRA»,r.?tR,lfc 
iRAr!r?ir,,i7 
. . TRA(.S?l‘,,Ja 
TPA'  rr:  (f , It 
TRAf'ppir  . 17 
. TF.A>;r..'’<c.lfi 

no  A ,)::1  .6 

CO  A 1=1.18 
A .TRAt'531 1 .ai 
CALL  CATt'l.'? 
CAI  I AAT»-UC 

CALL-HajCU?. 

call  I'ALiCCL 
RLTUfi f 

...  . . 


L.ai.»aMLniiA 

= 7llAf  1 ,1  1 
= TP.AI  S(;>1  1) 

= THAJJ£L3.1J 

= T-A8K(1  .?) 
=7FAfT<?.?) 

iIfi.iU.S.ti.21 

1=TFAfiS«l  ,11 
> ili'/ASl  ?.1  1 
J=lKAttS(.l,l)-_ 
) tTI  Af;S(  1 ,?) 
)=TPAt'£(2,2) 

1 zJllAli£J-i.2a 

IzTt.  ANRI  l.l) 
)=Ti:  ANSrP.l) 

) =Tf.ANS( 

) rTt  Ar;?!  1,2) 

) rT'"  A)'S<  2,2) 

,)  =TkA.(j£.ti,ai — 


=Tf.-Af;S2ta,ii 

1 SI  , 1RA)>C2,r.l,A  ,t,lfl) 

( TR  Af,r.’,,S7,tPA!;S3,lfl.(.,b) 

I.TP.ALS3.JJI/ULSP  — 

TRAr'Cl,  St  ,lft,A,N)(,nit)CX,NOnt  ,VCtUKL) 


niAOOOOG 

01500000 

_^iblooao.._ 

01530000 

015A0O0n 

OibbOOOO-. 

0 1580000 
01570000 

OliUOOGO- 

01590000 

01500000 

__D161DODO_ 

01620000 

01630000 

ILl.tAOOOO_ 

01850000 
01880D0D 
OILTOOOO-. 

oueoooo 

01690000 

D1.7j)0000_ 

01710000 

01720000 

01730DOO-. 

01760000 

01770000 

01760000.- 

01H10000 
01620000 
— ..0163  0 0 00 


.ULHEXiL.  NM'.t L'A.I'.Aja.l’.  1 

CL'r-ROdllfJl.  l..'r.RA'><t)l))'PKU,lUNPKD»KSAVE) 
nruNsiiin  lu-'f^rtf.) 

..  . . KSAVt.  .0 - 

r r MAI'KI' 

CP  15  1=1,8 

Ui_6_i_L 

tjF.  c = 1 n * « t 
lU'MKtXL)  = K / fJfl' 

If-c.  l.UNrK[:Ll.)  .£lJ.OJ  -KSAVES-KSAVL-,...!-.. 

K = 6 - MFn  » HINPKDIL) 

15  rp.’JTiriiiF 

-JitUliKL 

«MC 


OCOIOOOO 
00060000 
-.-00090000 
00100000 
00110000 
„a012D.OOO_ 
00130000 
001 AOOOO 
- —00150000 
0016DODD 
00170000 

(ULLaODOO— 

00190000 


JIUIELR  L'ACL  . UNPKltE  1 

;u'  ‘-nijT I fjr  hcp f K;'<A'U'’rK'',iUNPKn) 

t IM  c:  ion  lur  PL i (• ) 

M : fiUl.r.Kr;  - 

r.o  15  I, -1,6 
1 = A - L 

tit  0 . = . 1 0— ♦ •- J 

lUOPKl.ML)  = K / NFti 
6 = ><  - MID  * UiMPKfKL) 

15-  CO,\.tIHUt 

PL  1 "PM 
'■f.'ri 


0 0 0 1 0 0 II  0 
00060000 
-.00070000 
OOOHOOOO 
00090000 
-.DOLOOHnO  . 
00 1 lOODO 
00120000 
...OG130  0D0.. 
0 0 1 A II  0 0 0 
00150000 
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_H£nflLR_  NAf'E__  »Ln.(>i!.3 

SUMKOUTINf  AID 
DlMtNETON  KUtJM(15S> 

_ DIMENSION  SCOL(300»6)**CLMJJH6t6)it(ONE.QUbOO»»_  

ixY7<i(io<r<)>xr;siiB(Ait  kontrl<6i 

rOMMON  NFLRFC,  MRICS,  NRLCIlt  L5TC0N,  NBANO*  MXfiANOi 

I MXfLNP.  MXNODSi  NPRSFt  HSTIFFi  MSTRFSi  LlNt 

2 NSERlCt  DOGOt  NSTRPS*  KNTLDS*  MUDDTlt  HUDUYZ 

DIMENSION  INFOdSI 

.equivalence  IINFOtl)  iNELRECl. . . .. 

READ  « 0)  NZERO,  NZfRO,  NZEftOt  LARB ♦ NZLRO,  INFO 
2 CONUNUF 


OGOIOOOO 

00020000 

00030000 

OOOAQOOO 

OOObOOOO 

500600,00 

00070000 

noicoooo 
00 110000 
00130000 
OOIROOOO 


RE  A DC  )_NSJJID5 1_1 1 A_1 2<  LARR.  J2._tF  DU  ni.L)  .1  

LX  = 12  ♦ 1 
DO  A L=1,J2 

konfqclx’i  ^'kouhili 

A CONTINUE 

1 F.  <J  L,  N C. J I.  C.0_I.0.^2 

MOUNT  r 100 
ML  IMF S r SA 

XNTLDS  r LIN  - 1 _ _ _ _ 

6600  FOB'1ATUH1,10X,*PPOORAM  CONTROL  1 NF  ORMA  T 1 ON  • // /OX  , 

I'NO.  OF  OTROC.  NODES  = • » 15/SX. *LO«CST  NODE  NO.  = '.lA/RX* 


501900.00  .. 
00200000 
00210000 
00220000  , 
00230000 
002A0000 
0025QOOO_ 
00270000 
00280000 
.00290000  . 
00300000 
00310000 


__?*N0.  nr  I.OM/  CUNDITIONS  = «.1A/5X.«BANDUIDTH  = »«1A/5X« 05320000 

.3’NO.  ■ OF'Ff.luTTURAr.  E;.EMLNTS  = •«16/5X«  o'o330odo 

A*OnntR  OF  STIFFNESS  MATRIX  IS  ‘aIRI  00330100 

URl  Tl  (6i6600>  NSTNOSt  NBASEa  LSTCOWa  NBAHDa  HRECS.  KNTLpS 003A0000 

IROUl  r 1 00990000 

ITRI  = 1 00500000 

jisTRrs_:_o  _ _ oo5i.oppq_ 

KTKTc’s  I 0"~  ' 00520000 

UR10-NeAN0.lI)  00530000 

Jvl=l  OObAOOOO. 

~~LCWESTri  ' 00550000 

5 continue  00560i)00 


po  . t — 0.061  00.00._ 

oil  JO  frl.HRTo  00620000 

10  SC(il.<I*J»  - 0.  00630000 

U!:AVr=JJ  _ ^ 006AOpOO  . 

IF  (JSA/'t.N’f  .'i)  “go ’lo'zo  ' ' 00650000 

15  in  KTRECS.EQ.NSFREOGO  TO1BOt90J.ITRl  OO66OOOO 


KlEIt  S..=  .KL.R.ECi'!..  ♦_! 

READ!  F)  Ilf  .IJ1  NROWSf  WCOLS  « C C ACLHTX  ( 1 1 f J1 1 A Ulr  1 « NCOL  S)  • 
1 I in  .UR  OHS) 

__  20  lECUU.NE.OSAVE)  GO  70  <90.90lAltRl 

i' (ir.pT.USAVE.OR.ii.Lf.UPUESTJ  do  TO  15 


i-ii-Lowrsr 

DO  _? 5 J 1 J'-  N'LDU^_  „ 

i : i . 1 

OD  25  J - l.HCOES 

25  SCOL(I.  J)  - SCOLCIaJI,.  A'ELMT X C U a<I i 
MCOL'  i NCOLS 
GD  TO  15 

_ flO_CUNT  INUr.  

" ' ■ do  F'j'  ic  'i:!  .HCOL 


0.06800.00 
00700000 
00710000 
007,70000 
OOP! 0000 
OOH6000n 

00 II 70000 
00880000 
00890000 
00900000 
00910050 
00920000 
00960000 

oidoodob 


NSTRPS  = NSTRPS  . 1 
IFCNSTRI'S.I-r  .NBANOT  H.0U  = 1_ 
ilRITn  1 ) 1 GCOL  < I(K  i . I = iLOHANSTRi>S) 
Tl  OU^JL.OW.  1 

IF( ILOM.GT.O)  COHIST  : 2 

85  CONTINUE  

IF  CNSTRPS.f.E  .NRANOI  fTPl=2 
IFl  KT'IECS„EQ.N:''FREC  too  TO  150 

00  . TO  .5 

90  CONTINUE 

IS  OWr-  ILOU-LOWEST 

uo  ion  M 2 i.Mcoi.  

N3TRFS  ::  N.STRPE  <1 
IFlin  2 TRCWl  . MIIAND 
.... iRUHi  .;-,.iripyi— - 


OIOlOOOO 
0 I 020009 
01030000 
O1050U00 
C1060000 
01070000 

0 1 1 io  000 
0 1120000 
01130000 
01170000 
01200000 
01210000 
01220000 
01230000 
0 1 2 A 0 0 0 0 
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URI TF ( 1 ) (Sron I»K) » I=IROWl*If«OI 
100  CONTIUUt 

_ lF<NSFRFC.t:H.K1Rr,C5>G0  TO  ISO 

itouri  lou^f'Col 
LOWF  SI =IL0U-5 

J 1 F U 0 w E S 1.  ].  T,  lixmi  S _u.l 

GO  TO  5 
150  rONTINUE 

nrw  I HQ. ..  R 

RfUIHO  1 
INO  = 0 

r..O 

Non  = I 
Z)0  CONTINUr 

no  ?if.-n..  = )fLSTC0N 

00  J1  =1,6 

Z15  XTZUliJn  = 0. 

IF.I  KN  T ) 220.«  Z.2 0,1.22  5 

220  Rr»0»in  NSUn,KSUB,XTZSUB 
KNT  = KNT  ♦ 1 

225  _.C0H  I INUE 

IF  UlSUO  .NE  .NOD  ) GO  T 0 2 Sf, 
no  230  Jl=l,b 

z3.Q...xy  2 ( X sue  1 di  L.  =_  xY.z  aiiji  t JJ.1 

IF ( KNT.Lt.HRECl  l)GO  TO  220 
23  5 CON T I HU C 

C A UL  UNPAKZIKOtEECKfCODJ  tJIONXRUl 

00  2R0  11=1,6 

IF!  KONTRLU  1)  .Nr.OlGQTO  2R0 

IH D _=_1  N Q ^*.^1 

WR I TEE  3) lNn,<  XYZEK, 111 ,K=1*LSTC0N» 
2A0  CONTIiaiF 

NOD..  = _NUD  ♦..1 

]F  EKNT.Ll.NRECni  GO  TO  210 
IFEIHQ.LT.HSTRPSI  GO  TO  210 

REUINO.,!! 

REWINO  3 
RETURN 


012500QO 
0 12  70000 
OIZRQOOO 
b i 290000 
01300000 
01310000 
01320000 
01390000 
OIRDOOOO 
bitiooDo 

02090000 
02100000 
'o2l  1 0000 
O21R0000 
02190000 
02200000 
02210000 
J.2220  000. 
02290000 
02250000 
,02280000, 
02290000 
02300000 

_0  23 10  poo. 

02320000 
02330000 
02390000 . 
02370000 
023ROOOO 
J)2390000. 
02900000 
029BOOOO 
02990000 
02500000 
02510000 
J)  2520000, 
C2530000 
02590000 


Elio. 


0^55.0  0.0,0, 


.tlEMBf-R-UT^MF  rxnu,R3 

SUPROlillNE  FXCMINBANDl 

COMKOM/ATO&/S(9 2195)  ,IROW,  Ut,  dZl  KNTlO 

, , no  no  d = 2,NliAH0  _. 

J2=  J»‘2 

11  = (JZ  -3‘J  »2)/Z  ♦ 1 

.12  =_EJ2jcd)./2 

no  110  1=  II,  12 

IJ  = I ♦ U 

S(  I)  Slid)  

110  COMTINUF 

REAni  17  ESI lJ,l:dY,dZ) 

KNT10_r_KNI!_0  * 1 

900  RETURN 
END 


0 ob  i oil  0 0 

OD05D00D 
,00060000 
00070000 
OOOBOOOO 
,00090000 
ooioooou 
0 0 1 1 0 0.0  0 
.00120000 
00130000 
00190000 
.00150009 

bbi&ooco 

00170000 


JtlEJHBJ:R._N A ME  KAY 6.?  3 

SUPROUTIHE  KAY 

COMMON  NFLREC,  HRECS,  NRECll,  tSTCON,  NHANO,  HXBAND, 

1 nXCUNOi.MXNODS,  N0.ASX.»..»),ST..1F.F:j.  MSTRE.S.*  .EJN, 

2 NSFRFC,  NOGO,  NSTRPS,  KN7LDS,  HUDDYl,  HUU0Y2 

C0MW0N/«T0S/GdUNKE92I95I, lRE)W»dY»dZ,KNT10 

P 0 U B L E , PJl E C I S ; 0 N ^S.U M » Ji, H P A « TCHPD  , TEMPC  tJ EHPD  

IMMEN.QIOfJ  YAKE  P90,10'01  , SE2901  , FElOOl 

tOUlVACENCC  <CdUNKEll,YAKEl«i:))  « E OdUNK  I 39  00  1 1 , S E 1 1 ) , 

. 1 EGdUNKE?,9291  )»FEU) 

1)02031  = IflSTCON 
n02C3d  = l,NfiANO 

203_yAK(J,  1)_^,0.. 


onoiobob 

00020000 

00030000 

00090000 

001  05001) 

ooi  ioboo 

001 15000 
.001  16000 
00120000 
001 50000 
00190000 
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I = 0 

IBRNCH  - 1 

_ 805  I =^1  ♦ 1_  __  ^ 

IF(  I.ro.NnAtlOIPRNCH  = 8 
80T  CONTINUE 

R t * 0 _{  _!t ) IS!  I81«  12  = lti> 

REAOI  3)  MUDtlFI I3»,I3=1»US1C0N) 

II  = I - 1 

OOP 20  .1  ::  1 «LSTCOH 

SUM  = 0- 

IFI  n ,LT. II  GO  T0215 

002  

lEMFA  = SILI 
TEMPO  = TAKILiJ) 

810  SUM  = SUM  « TEMPA  » TEHPB 

K 215  TEMPC  = FIJI 

TEMPO  = sn> 

■ V AKd.JI  S ITFIIPC  - SUMl/  TEMPO 

820  CONTINUE 

URI TCI lOlMUDtlTAKIl «K)«K=1«LSTC0NI 

223  lF(MUD»^E0.*lNtUDS)_i;Q_Hl25J> 

GO  TO  I205t 8251 tlBRNCH 
225  CONTINUE 

D02AO  Ml  S2.WBAND 

W2  = Hl-1 

C02AO  M3  =l«LSICON 

2A0_.TAK(M2tM3l._^iJl,fI11jB31 

CO  TO  207 
250  CONTINUE 

BEW.lNQ_3i 

RCUINO  3 
REWIND  10 

2£iO_caNlJNlJC 

RETURN 

END 


UU13UVUU 
001600CO 
opj  70000 
obiaoooo 
00200000 
00220000  _ 
OOPAOOdo 
OQ260000 
00280000 
00290000 
00310000 
_P0320  00_0 
00321000” 
00322000 
.0  0330  000  ^ 
€0350000 
00352000 
_0.5 35100 0 _ 
00370000 
00390000 
J0.110  009_ 
OOASodoQ 
O0A5OOOO 
JDOlfcJlOOO.. 
60870000* 
00*80000 
J,0*90000.. 
00510000 
00530000 
.a055_QLOpJI  _ 
005GO000 
00570000 
_oo5Bnooo_ 

00590000 

00800000 


BEJBaCfL-N  A ML. W 1 N.fefl.3 

COMMON  NEERECt  MRECSt  NRECllt  LStC0N«  NBANOt  MXtlANDf 
1 HXCLNO.  MXNOOSt  NBASEf  MSTIFR«  MSTRES*  LIN, 

2 NSF.REC,.  NOGO,.  NS.TR£S.«_JSNTLD,5lJ.,  MODPni  iiUKDt2.^ 

REWIND  1 
REWIND  3 

B5.W  I ND.  _ A 

REWIND  8 
REWIND  9 

__  ..  . REWIND  10  ..  . 

REWIND  11 
REWIND  12 


.CALL._ALn 

CALL  STFS 
CALL  KAY 
CALL  EXIT..  .. 
STOP  5 
END 


OOOIDOOO 
00020000 
00030000 
001 lODOD 
00130000 

oei7oooo_ 

00070000 

OD05000D 

.00190000, 

00090000 

00150000 

^0.023.0j0.0.0._ 

00270000 
0031000U 
--^SOSAOCOO  . 
00350000 
00360000 


JMEJIBIP..  NA  ME._.STF.S  GtJ} 

SUHROUTINF  STFS  OOOIOOOO 

COMMON  NELREC,  MRECS,  NHECll,  LSTCON,  NRANO,  MXBANOi  00090000 

1.  , . , . MXCLNO,  ..MKNODE,  .NBASEj_MSTlF_Fj  .MSTR.tS,  LIN,  . 00100000 

2 NRFREC,  NOGO,  NSTRPS,  KNTLOS,  MUDDTl,  MUnoy2  OOllOOOO 

C0HH0N/A70S/SIA2195> ,IROW,  JV,  JZ , KNTIO  00120000 

DOUPLr„PRrjC  LSI.ON SUM.,  TEMPA,TEMPB,TLWPC,SCOMB 0 0125  000 

DI'TNSinn  ■sDUMI290  J,TCMPNI3«3»t'KILTl296l  ' OOiSoOOO 

NPANOl  - NDAND  < I 00150000 

NPHI  = riB*Nn..r  1 OOlbOCOO 

IRON  =1  00170000 

NG'JY  - 0 00176000 

K0U(:nR_=.60 0 0177000 
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4 


• <1 


r»LL  CRRSET«251,3tlO«-l» 
C*LL  CRKSrT(2f.l<300«-n 

11  -.1 

DO  20  N =l«rjP«ND 
12  r II  ♦ N • 1 

Rc  AP.y_  )isj  i.>  ,.i_=jjjjLy_ 

11  = II  ♦ N 
KUHN)  = n 

io  CONTlNUr  __  _ 

jy  II  - NBAND 
JZ  =11  - 1 

_ K N T 1 NBAND 

"noak  = 1 

n = !;grT( s(  ni 

SOUH  i\i  S S(_l» 

K = 2 

00  25  l=2*NnANn 


COIROOOO 
OD1R5000 
002 JOOOO 
00220000 
00230000 
102AOOOO 
00250000 
00255000 
00260000 
00270000 
OOZBOOOO 
00290000 
00300000 
OO3AO00O 
J0350000 
00360000 
00370000 


_ ^SIKI  -_SiK>/5JJJ 

SDUmi)  = S«K) 

insUUHdl.NC.O.I  KILT<l»£l 

K = K ♦ I_  

25  CONTINUE 

URITCnZ)  NOAKt  < SOUH  ( 1 1 > • 1 1 =1  «NB  AND  ) 

Jlor..UY- =_lNfL6Nn^  L-^3 

NOGUT  = <NBANU-li  *<N0CUr*9t 
DO  40  L = 2«  NRAND 

,„1  SUBLL=  1 « Lr  ( IROWri  J.)  AJ2LrXt=jLJlfiQ«jy.)Ji/a±l  ♦L-l  LOW 

LI  = L-1 

DO  40  K = Li  NDANO 

1 S U tlLH=t.l.tt:L<JLR.CLW-lJ-Lt«X.-{H-nROW-n  >)/2.11tl-lE.PX 

IFCKlLTThl.EQill  GO  TO  29 
IF  I S(1 SUBLM) ) 29f37«29 


2^.SUM  .r_.0. 

DO  30  K = liLl 

lSUPKL=HL-«  lROW-1)  )**2-CL-IIR0W-I)»»/2*l4K-lR0U 

TFNPA  = StlSUPKLl 

ISURKHrMH-lIROW-l  n*«2-l«-(IR0U-l»»»/24l*K-lR0U 
TEMPB  = SUr.UBKH) 

r.u  p.  =..  s u a..*,  j I !5r.A_  : 

30  CONTINUE 

TErPC  = STISUBLK) 


OO3R0  0O.O 
00390000 
00395000 
00900000 
00910000 
00950000 
00990100 
00990200 
00500000 
.0  0510000 
00520000 
00590000 
J)_059  01b0_ 
00590200 
00550000 
J0056000D 
00580000 
00590000 
.0.0595000. 
00600000 
00605000 
.00610000 
00620000 
00630000 


■SC  0 «u  XE  np-C-=..s  un 

IFd.NE.H)  GO  TO  35 
NGUT  s NOUT  ♦ 1 

TCM PN < NCD.Y  iJ  ) .=_ SCOUR 

TEMPNlNr.UY»2)  = SUSUBLN) 

TEMPN<N6UYi3)  = » 

IF< NGUY.LT. 3)  CO  TO  6969 

IF  ( KOUNTR  .LT.50  )..  .CO  .TO  6,9.12 

URITC(6,697n) 

KOUNTP  = 1 


00690000 

00650000 
00650100 
_ 00650200 
00650300 
00650900 
00650500 

00650600 

00650T00 

00650800 


_Jt922- J/R  I.I  E tc  f t 5.7J.)J  .UiM  ETT  UJ Cj  3ijJlG  =A»2J  0 0 6.5  0 9 0 0._ 

NRI  TE«6i9200)  ( TEf1PN«3*NU)»HU=lf  3»  0 0650910 

K0UNTfl=KnUNTR92  00651000 

.NC-Uy  =0  . . 0.0651  100 

”6969  IF  1 (L.EO.NR AND  ) . AND . < NDGUY.GT . 0 ) ) WRITE  <6»69n ) H TEHPN C NG »N U » » NU=1 0 0 65 1 2 0 0 
If  3)  iNG  = l fNOC-Ur  J 00651300 


5 ( ISUPLN>.=  D60RUSCQ.H.9_) 

GO  TO  3R 

35  TEHPA  = SdSUBLL) 

SdPUPLH)  X..5CPRp/T,EMPA 

38  KILTIK)  = 1 
GO  TO  90 


.0  0.660.0  0 0_ 
00670000 
00680000 
0.0680005. 
00680010 
00680020 


3Z_S«  I SUPLH.>_=_0.I 

90  CONTINUE 
J1  = 1 

'DO  60_l  = liNPAND 

d2  = ji  ♦ i - i 

WRITET  9)  (S<U)fU=JltU2) 

dj  £ d)L.l_I 

6 0 CONlfNUT. 

IFlKMTtn.EO.NSTRPS)  GO  TO  150 
CALL  EXCHlNP.aNO..) ■ 


J)0680030_ 

00690000 

00730000 

00790000.. 
00750000 
00760000 
00770000 

oov'eoDOG 

00790000 

00800000.. 
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< 

j 

1 

j 

. i 

1 

H tr  NBANO 

NGIJY  = ft 

KOUNTR  = 50 

OOBIOOOO 

00840100 

00840200.. 

^ 1 
\ 

1 

100  CONTINOC 

IROW  = IROU  4 1 
h = fi  4 1 

00850000 

00860000 

OOBTOOOO 

% 

KILL  = 0 

IF  <KimC.LT  .NSTRPS)  GO  TO  151 

NOGUY  = <M-NBAHO)  / 3 

OOBBOOIO 

00880100 

00660200 

f 

NOCUY  = <R-NBAN0)  - IN00liT»3l 

15)  CONTINUE 

DO  115  L=1R0W«H 

00680300 

OOBB040D 

00890000 

\ 

T 

iioBLii^  < <N-(  1 Ro  w- m 4 *2-c  n- < iRo«-i»  n/2  4 141-1  row 

IF  < KILL. CO. I ) GO  TO  103 

IF  1 5( ISUBLK) 1 lD3ill2tl03 

00690010 

00890020 

00900000 

103  SON  = 0. 

LI  = L-1 

IFlLl.LT.inOUl  GO  TO  106 

00910000 

00920000 

00930000 

■.  j 

; J 

bo  105  K ' - ~i ROW.L  1 

lSUPKL=<<L-( IROW- : >»4*a-<L-<IROW-l)»J/?4l4K-IROW 

TENI’A  r SdSUBKLI 

. 00950000 
00960000 
00965000 

' i 

ISUPKN  = ( <H-(  IROU-in**2-<N-(lROW-lJ  |J/?4\4K-IR0W 

TEKPB  = S(ISUBKh) 

gun  = SUN  4 TERPA  * TEMPB 

105  CONTINUE 

108  CONTINUE 

TERPC  = SdSUBLM) 

00970000 

00975000 

00980000 

''b()9960OO 

01010000 

01015000 

- i 

r 

SCOHB  = TfflPC  - SUM 

TF(L.NE.«)GO  TO  110 

NCUY  = NGUY  4 1 

TCMPNINGUY. 1 ) = SCOMB 

TE  MPNINGUY*  ? ) = SdSUBLM) 

TtMPNINGUY.  3 ) : M 

TF  f MGUY.L  T . 3)  GO  TO  70ft9  . . 

01020000 

01030000 

01030100 

01030200 

0 1030300 
01030400 
01030500 

- 

IF < KOUN1R.lt .50 ) GO  TO  7072 

UR  1 TE<  G,G970» 

KOUHTH  = I 

0103D600 

01030700 

01030800 

707  2 WR I Tr<G«G971 H < TCHPN<NG»NU) fNUrltS) tNC=lt2> 

WRITE «Gi<200)<Tt HPN<3»NU»»MU=lf3l 

K0Uf..RrK0UNTR4P 

C 1030900 
01030910 

01031 000 

NGUY  = 0 

7069  IF< (L.tO.M) .ANn.<NOGOY.GT.O).AMO.<KNT10.EO.NSTRPS>)WRlTE16*69Tl) 

1 1 ( TEMPNING.HUl .HU=1 »3) tNCrl.NOGOr ) . 

0 103U0D 
01040000 
0)040100 

SCISUBLM)  = DS0RT(SCOH0» 

GO  TO  1 1 1 

110  CONTINUE 

01040200 

01050000 

01070000 

i ^ 

?■  5 

ISUBI.L  = ( (L-<  IROW-1  I )»42-<L-<  IROW-1 1 > I /2 ♦ 1 *1  - 1 ROU 

TEMPA  = SIISUBLLI 

S(ir.URLM)  - SCUHB/7EMPA 

01060000 

01090000 

01100000 

4 •' 

i i 

111  KILL  = 1 

CO  TO  115 

11?  SI  I sum  Ml  = 0. 

01100100 

01100200 

01100300 

i 

1 ; 
i ‘ 

- • m 

il5  CONTINUE 

NUAK  = NbAK  4 1 

DO  120  IsliNBANU 

SOUMI I } = SI K» 

K=K4l  _ 

ClllDOOO 

0 1120000 

01I3_0000_ 

01140000 

01150000 

JIllBOOOO 

i : 

3 

1 1 

■ 

120  CONTINUE 

WRITEIiai  NRAK,  I SOUM 1 IT  1 ♦! 1 = 1 4 NO AND! 

WRITFI  41  ISIK) .K=JY«J2I 

01170000 

01210000 

01250000. 

; ] 

* ; 1 

IFI KNTl 0 .EO. NSTRPSI  GO  TO  15® 

CALL  EXCHINHANU) 

GO  TO  ton 

01260000 

01270000 

01260000 

! j 

j 

150  CONTINUE 

DO  180  Ir2,NBANn 

00  1 75  .1=1  , NT'ANn 

0 1300000 
01340000 
.01350000  . 

i 

11  = <J4»2-j)/2  4 1 

175  .SOUMI J»  = Sill) 

NDAK  ' NBAK  + 1 . - - 

01360000 

01370000 

..01390000 

: : 

400 

1 

URITt(12)NBAK«(SDUn(Jtlt>Jlsl«N8AN0) 
IBO  cnniiNur 
„6SXi_EORKAtUJ»( 

IP.A  t ’ROW*  J 


6971  rOPMATnXfglEEl  7.8»F5.0»» 
„9ZIUi  -/OR  MA  T ( lJlj2H-2tl.7-.a»Z5ttUJ. 

Rcwnm  A 


REWIND  12 

JIE.V1ND 1. 

RETURN 

END 


0 lAPOOOO 

OMIDOOO 

.0.191010  0 _ 

01A10200 

01910300 

0J9  10900 

01920000 

01930000 

il.11.90.0.0-0  _ 

01950000 

01960000 


. JIUIBE  R . . N A HE U.Np!t26iL3 

SUP  ROUT  INF  UNPAK2<NUHPK0«tUNf>KD> 
rlNTN-JlCN  lUNPKnifc) 

K = N'JPPKO  . . 

DO  15  L=l«6 
I = 6 - U 

NED  s 10  «*  1 

lUNPKPUl  = K / NED 
K = R - NtD  * lUNPKO(L) 

_ . 15  CONTINUE  

RETURN 


OODIOOOO 

00060000 

00070000 

oooeoooo 

00090000 
Jl.o  ijoop.oo. 
00110000 
00120000 
00130000 
00190000 


END 


00150000 


t 


-JltfiaUUNAf'E Dt£L.tB5 , ■ , 

SUPROUTINC  DEFL 
REAl«P  XSV 

DiriENSION..lNFOit.lBI.  

DlHlNStON  X(290<100>  «SCC290>«YR2nOO> 

DIMENSION  XSVIftlOO)  ♦INE0CNI6)«RDUF1I1551 

P0lUP.LL.f.8XJLL$l0K-A.M.PjJLH£AUL!O-aiNP.C-«-IfHEfi 

COMMON  NtlRtCi  MRECS*  NREC11«  tSTCON*  NfiAMD«  MXOAWU* 

1 MICLND,  MXNODSf  NBASt*  MSTIFF,  MSTRES*  L1N» 

2 HSFRECi.  NO_C!).i_NSlJIESj_KIUJlPaj.  NUOPTl  iJIUODXZ 

EOUlVALENCt  IINFOI lltNCLRCC) 

READ!  91  N2ER0,  NZCRO»  NZERO*  LARR*  NZIRO*  INFO 

NST-NOS  = NZLRO 

RNTLnS=  tlN-1 
NSIRPS  s KNTinS 

_a6Q 0 . FO RM AT  ElK.  1 1 IJI  HA M COATROE  . I NEPR  M A J I ON  • » 

1*N0.  OF  STRUC.  NODFS  = • t IS/5X t •LOWEST  NODE  NO.  s •tlA/BXt 
2'NO.  OF  LOAD  CONDITIONS  = • ♦ I 9/5X » ‘B AND W I DTH  s •♦I9/5Xi 

3!Nq  . Of  STRESS- PACKAGES  

9<N0.  OF  STIFF  ROWS  (COtSI  ANO  NO.  OF  LOADS  ROUS  s ' tlh) 
URITC(6,6600)  NSTNDSt  N6ASC«  IS7C0N«  NBANOt  MRECSt  KNTLDS 

ROUNT_=2P.O 

HL1NES=600 

00  3 I = l.LSTCON 

DO-  3 J = l.NBANP 

3 X(J«II  = 0. 

NUMOUM  s LIN 

I B P N C H.  - .1 

1 = 0 

NOPF  = NSfNtlS  ♦ NDASE 

IRE>D_=_1 

GO  TO  950 
5 I - r * 1 

IFL1.E0.NDAND)1BRNCM..S.J2 


OOCIOOOO 

00080000 


oolosoon 
noiioooo 
00120000 
.00  130000_ 
00190000 
00150000 
00160000 
00170000 
00180000 
OJP190000. 
00206000* 

0021DOOD 
0.0220000  , 
00220100 
00230000 
00290000 

60200600 
00260000 
JLO?  TO  0 0 0_ 
00260000 
00300000 
oo3irooo_ 
00320000 
D0330D00 
0 03.90  00  0 

06380666' 

00900000 
.0.0  910  00  0 
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7 continue 

REA0I12)  NUC.  ISCI12).I2sl»I> 

RFAOIIO)  rOU.  ( YK2( 13). I3=1.LSTC0NI 

aoR3oooo 

OORTOOOO 

00610000 

DO  20  U = liLSTCON 

00630000 

SUM  = 0. 

O05R0O00 

tri i.Fo.i)  no  TO  15 

00550000 

00  10  L = 2.1 

00660000 

LI  = I - L « 1 

00670000 

TEMPA  = SCEL) 

00572000 

TEMPP  = XILl.J) 

0057RI)00 

10  SUM  = SOM  ♦ TEMPA  * TEHPB 

00580000 

15  TEMPC  = YK2IJ) 

00600000 

TEMPO  = SC(l) 

00602000 

XII.J)  = I TEMPC  - SUM)  / TEMPO 

O06OR0O0 

2r  rONIINUE  . 

00620000 

NUMOUn  = NUHDUH  - 1 

00630000 

WRITE!  R)  NUMOUM,  < X 1 1 ,Jl I.Jl ±1 .LSTCON) 

00670000 

NLINln  £ NLINES  * 1 

00680000 

IFINLINES.NE.KEEPIT ) GO  TO  SR 

00690000 

00  7b  JK£1.6 

00700000 

no  

0D7I0D00 

2S 


SI/ 

32 


XSVIJKtin  : 0. 

NS0B=  1 - KEEP  IT 

-..00..32..,XK=.Uft 

KKX  s 7~KK 

IF! INEGCNIKKKI.GT.DIGO  TO  32 
NGUB  = MFiUn  < 1 

00  .30  JJ  1 iLS  ICON  

XSV<KKF,JJ)  £ K<N&UR«.IJ> 
CONTINUE 

fO>IM«TllHl«37Xi«tJ  t_SC  LXJlRJtZx. 

1 2flX«'FINITC  ELEHENT 

2 3?X.*S-73  FlNAt 


KEIHODOLOGT • ./* 

RESULTS»t//» 

3 r^X,  •POTAnONSiqiOJL»NS»_ANn.  DEFLECTIONS*)  . . . 

All  rO<IK*I<//«2Xf*NOOf  •,i5»A2X*»c6NO*»«Xt*ROT*TION  X’tlOXi 
I’ROTAIION  T * .10X«*ROI»T ION  2»» 

1.  r_OP  T LFiilOt  f.L  fCTIOfI  X«.BX.»DEFLECT10N  Y * »flX  t ♦PtFtEC  T1  ON  Z»). 

N12  FOR"*T(lXtH<iPrt7.T«lP2E20.7» 

61212  rORMATI  IX.MilPE17.7tlP2C20.r» 

KIN  1 . 

38  RENO  s KIN  ♦ KO 

IFiKEND.CT.LSTCON)  KCND  : LSTCON 

.__3.t-ll-l?VN t-=-R PUHI.  .1.  &t WO.  - 

IFIROUNT.LE.NLINES)  go  TO  601 
KOONT  = 0 

VRlTE<6«fcl3)  

GO  TO  39 
KOI  CONTINUF 

UR  I Tt if  tHI)  HOPE ^ 

6o  RO  KK  = KIM«KtND 


a 

cn 

o 


URITEIGf6l2)KK«IXSV(Kt«K)(>«Klclt3> 
URlTKll)  NODE.  KK  « I XSV<  K1  »KK)  »K1  gj.G) 
CONTINUE 
URITE<6«6IRI  , 

0.0,i  1 KK^KlNiKENO 


RO 


VRI  TC<6.61212)KK.IXSV(lll4KK>«ltlKR«6) 
RI  CONTINUE 

KIN  = KEND  ♦ 1_ 

IFIKIN.LE.LSTCONIGO  TO  30 
IFINUNDUn.CQ.DGO  TO  80 

R5  0 CO NIINUE 

GO  TOTRSS.RGO) »1RE*0 
R56  CONTINUE 

IREAD  - 2 _ 


00720000 

00730000 

_po7Roqoo 

00760000 
00760000 
00770000 
.00780000 
00790000 
00000000 
.00050000 . 
OOB61 000 
00052000 
. 00853000 
00870000 
00880000 
jjoenoioo 
0*0690000 


.00900000 

00910000 

00920000 

JH530000_ 

OO9RO0Oi; 

00960000 

_P09GO0OP 

00970000 

00980000 

00990000 

01000000 

OlOlOOOO 

.01011000 

01020000 

01020100 

JL10.2520,P_ 


01020R00 
.,01030000 
oioioooo 
01060000 
.0.1060000, 
oliobooo 
01110000 
.0.1120  00  0 
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• • ■ 


nrACX  9)  NSTNOS,  lit  I2t  L«R»t  JAKCt  (KOUN t JK I t JKsi t JAKC I 
lUC  = 0 

A60  CONTINUC 

LUO  = LUG  *1 
IFILUG.GT.JAKL)  GO  TO  ASS 

Nooc  Nqp_E_r  1 

CALL  UNPAKIKDUMILUG) tINEQCH»KEtPIT) 

IF  ikeepit.le.o)  go  to  ago 

NLINF^ 

5A  COHTINUE 

GO  T0<  S,  SSltlBRNCH 

55  CONTINUE 

00  70  ni  = ZtNPAND 
MJ  = Nl-1 

00  70  H5  = ItLSTCON 

70  'xiN?tH3>  = X««ltN3l 
CO  TO  7 

CONTINUE _ 

R^u  irin  A 

IFfn.NE.n  REAn(9l  NSTND$*Il«12ttARRt>>AKrt(KDUMI  JR>«JK  = ltJARE> 
REWIND  10 

_PEWJNO  .12 ■ ' 

RETURN 

ENO 


01130000 
OllAOOOO 
01150000 
OllGODOD 
01200000 
_01210000 
01250000 
01260000 
^2  70000 

'01316066 

01320000 
01330000 
'6  13  70000 

0 neoooo 

_0_139000q 
0 lAOOOOO 
OIAIOOOO 
0.1A30000 
OIAAOOOO 
01AA5000 
OIASOOOO 
01A60000 
01A70000 
OIAAOOOO 


HEWBEP  NAME__ES1R,6/15l 

SUPROUIINF  FSTR  00020000 

OINENSION  FSS(100t28)tSTRCSS(28tAB) •X(290tlCOt  00030000 

If  OPMA)(<28)t  OpMlN(2R»  t._K0NNAll.<2ft>  »-,K0HRINC2B) OOOAOOOO 

2tNOOEAR(R)t  RLSBERtOlt  INONOSIA)  00050000 

COUPON  NELRECt  MRECS,  NRECllt  LSTCON, *NBANO,  HXBANO,  OOOGOOOO 

1 PXCLNDt  PXNOUSt  NBASEt  HSTIFF.  WSTRES.  LIN , 0 0 0 7 0 0 0 0 _ 

2 NSFRECt  N'OGOt  N5TRPS*  KNTLDSt  NUDDYl*  HUDDY2  00080000 

DATA  KHAXtRHIN  /2HMX»2HNN  / OOlOOOOO 

NSnCCS  s_fi. 001  20000 

NLINES  = 5A  00130000 

HOST  r HXPAHn  00170000 

L I N 1 s LlN-l O.Oi fl 0 0 0 0 _ 

IFIHXRANO.GT.LINU  HOSTS  LlNl  00190000 

DO  A I = ItHOST  00230000 

A REAOTq)  JIUOt  TXT.ItOlf.JslttilSPNI  . 002AOOOO 

INOLOU  s LIN  - ROST  ' 00250000 

5 CONTINUE  00260000 


REAO<  91  NUHRECt  NULKSt  NRlSHt  < 1NDN0S< 1 11 1 11 =1 tNBLKSl t INODEAR 

l<i  1 )tIl  = ltNPLKSl  1 I'KLSBLKCIlltllsltNELKSltKOLTTLt 
2<  ( STRESSII 1 « Jl)  tJl  = l tKOLTTDtllsl  t NR  I SH  1 t K 1 NO  » VOLUME 

_NSRFCS  = NSRECS  A I _ — - 

IMiNDNO'sii'j.GE.INOLOUl  160  TO  Ig' 
lOlF  = INOLOW  - IN0N0S12I 

NP'*'!  = HOST  - IDIF 

no  ''lo'l  = ItHOST  “* 

1F« 1 .CT.NENOJGO  TO  7 

— n r L ♦ JPIP 

06  6 J = itlSTCON 

G XI  I tvll  s X(  II  tJI 


.0,0300  00 0_ 

00390000 

OOAOOOOO 

.009  10000 

00950000 

0DA90000 

0^0500000 

'06520666' 

00530000 

00570000 

00580000 

00590000 


GO  TO  10 

7 CO'nTINUE 

REAOI  A)  RUOt  (XI ItJlltUlslALSTCONI 

*0  CONTINUE 

INOLOW  = INOLOW  - lOIF 
U CONTINUE 


D0_1 8 I = liHRlSR 

oPHiNin  = irio 

IR  OPMAXI I ) S -1 .ElO 


CO  , .25.  JsljNB.LRS 


J)_06D0  000_ 
OOGIO'OOO 
00650000 
.00670000 
00710000 
00730000 
_0(I7900.00 
00750000 
OD760000 
.00890000 


n 


i 
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] 

1 


Ji 


.^ji  * 1 


t 


NODrAR(J)  = NODFARIJI  * NBASE 
25  CONTlNIlt 
LLIN  = 1 


ILFIN  s KLlNtS-lA 

IF(  LSTCON  .Lt.  LL'-IN  )LLFIN  .3  LStCON 

00,  ?B  K_=l«LSTCpN___ 

00  50  L rltNRlSM 
SUM  = 0. 

J?  = 0 


ooasoooo 

OOR(>0OOO 

_00500_p0.0_ 

ocPioboD 

00920000 

.00930000 

00950000 

00960000 

00970000 


00  30  IrlfNPLKS 
IF (KLSRLKI n •ir.Oi  GO  TO  30 
Jll  _=  MOST  - INPNOSUl  4 IWDLOM 
J1  = J2  ♦ 1 
J2  = J2  ♦ KLSBLKtn 
00  2B  U=JltJ2 


SUM  = SUM  ♦ STRtSSIttJ)  « X(H1«K) 

Ml  s Ml-1 

_2B_CpMJINUE 

30  CONTlNUt 

FSS(K«n  = SUM 

IFI  r.UH.riT.OPMlN<L)  )GO  TO  35 

0PM  I9a»_~.-5UM 

KONMINIL)  = K 

35  IF< SUM.LT.OPMAX ai ) GO  TO  50 

OPMAXILl  = SUM 

FONMAXiu)  = K 
50  CONTINUE 

_7J)_.CONIlNU.t 

VBIT(.<13>  NUMRtCfKIND  « LSTCONtNRI  SM  *<  4 F 
ISM) .NOOCAR«KONM«X«XONMIN«OPMAXtOPM|NtLL 

IFIMRECS.GT.NSRECS)  GO  T0_5 

fNC  FILE  13 
REUINO  13 


SS<K«L) tK=ltLS1 CONI«l  =liNI 
IN,LLFIN«KMAX« KM  IN* VOLUME 


.J(£IURrt._ 

(NO 


00990 

OOO 

01000 

000 

01050 

000 

C 1060 

000 

01070 

000 

OHIO 

000 

01120 

000 

0 1130 

000 

01190 

000 

01160 

000 

01170 

000 

01210 

ODD 

01220 

000 

01230 

000 

01250 

000 

01260 

000 

01270 

000 

01290 

000 

01310 

000 

101320 

000 

01330 

000 

01340 

000 

01350 

000 

0 1360 

000 

-OJJJQOOO 

01380000 

_J1E fiats,  .name  ._«A.iNi!a5__. 


COMMON  NELRIC*  MRECS*  NRECllt  LSTCON* 
1 MXCLNDt  MXNOOS*  NBASE*  HSTIFF* 

2 . . .NSFRt,C«..N0G0*..NS.TB£5JLJlN.T.UDSi.. 

NBANO*  HXBAND* 

MSTRLS*  LIN* 

MUDDY  1*  l|1.UPD.y2_ . 

001  lODOD 
00120000 
. . 00130000 

REWIND  10 
REWIND  12 
f!EW]ND_9 

00170000 

00210000 

00250000 

REWIND  9 
CALL  OEFL 
REWIND  1 1 

00290000 

00330000 

CALL  FSTR 
CALL  EXIT 
STOP  7 

00400000 

END 

00410000 

JIEHBLR  NAME  UNPKfBS 

SURROUTINE  UNP AKl NUMPK 0 * 1 UNPKO«KSA VE ) 
DIMENSION  IDNPKDIR) 

KSA  VE  = 0 . 

OOOIOOOO 

oooeoooo 

00090000 

K = NUMPKP 
DO  15  L:l*6 

00100000 
00110000 
00120000  . 

NED  = 10  *•  1 

IUNPK01LI  = K / NED 

1F(  lUNPKI!(U.j  a.O»  .BSA.VE=  ItSAVi:.*  1 

0013DOOO 

00140000 

001500DD 

K K - NED 

15  CONTINUE 
-.BE.IURN_ 

* lUNPKO(L) 

00160000 

00170000 

OOIBOOOO 

END 

.•JL  I . 


404 


00920000 


n. 


• ' • « 


HtKBtR  NSf'E  AJtNKfcO'* 

fOPPOUIlNr  AJLNKHMSI 

iMrt-icn  Rt*L*a  ia-g»o-2) 

Rr»i*e  HMs 


COPMON/L  lA'KA  |/N1OTAL.N0RET»NT*Pt 
COPMOH  /LINKA/  lArtlfSO)*  _ 

1 AMONOOtXMOSAT .XNORrTtKNOHEDtiNOPOP  * A XNOD ,£ E « 3 » t X KU « 3 ) 

2 XNPASV,XNEJGtXN*1ASGiSCAEE,EVSAV£tXKSAVLiXNSPECt 

3 as,fsm,rsh,om.uh,uone»oinv,foefl.floao*ohega 

PIPEW^ION  UOROS<AJ,NOOtl<2750»»NOD£2(2750>,TEMPi«2750), 

1 TEMF2C2750) .TFHP3«?7S0».TCHPCA»» 

2 XM.0O> . r<  600)  t 2C600»  iNONFt  |^0_»  «NTVO(_fe00  ) . 

3PAP(lB5n>«KK«fi)  ,bUH«A), 

A X0K<12,i2),ROU(lR60l«ROW2(i2) 

DIMENSION  TWO«I<A»,SEHP<A> 

DIMENSION  XHS< 30001, MHSE61 

DIMENSION  XXI12) 

DIMENSION  X1PM2I 

■ DIMENSION  KC6Ni  275'0)  ''  

DIMENSION  V0LUM<2750> 

dimension  OPTIONS)  ,OATAE30_»«LOPIA»  _ _ „ _ 

data  bPTi6N/*7fS»,*N0»/ 

EQUIVALENCE! DATA! 1 > ,XNONOO> 

DATA  TWOR/AM  ,AH  ,AH  ,AH  f 
VdA=0. 

V00=0. 

VOS^O. 

NSPEC  = xflSPEC'  ~ . 

NONOD=XNOHOO 
NOSATrxNOSAT 
' NORETrXNORET  ' 

NOREDsXNORrO 

NOPROP=XNOPOP 

~HAXN6d=A)(N06  

NMASV=XNMASV 

NEIGrXNEIG 

NMASOiXNHASG 

NTQTALfNORETfNOREO 

NH=NTOTAL 

NdOrLs6*NOXidO-NdRE  r-NORti) 

DO  A629  1=1, A 

A629  10P<l)a0ATA<l  + n» 

NeYla"? 

IF<0H,C0.17  NOVr=l 

CALL  lOAOCR  ($KP«2I  _ _ 

“iiRi  fEi6',‘90Ai  ns “ “ ■■■  


00030000 

OCOaOOOO 

ooosoooo 

00060000 

00061000 

00070000 

OOOROOOO 

00090000 

OOlOOOOO 

00110000 

00120000 

00120100 

00120200 

00120300 

00120A00 

00120500 

00121000 

00121100 

00121200 

coisoioo 
00150200 
00150300 
00151000 
00160000 
,00170000 
OOlROOOd' 
00190000 
002000DO 
00210000 
00220000 
00230000 
obiAodod' 
00260000 
00270000 
(10260000 
002B1 000 
00282000 
o62eSoo6 

OD2BAOOQ 

00300000 


90A  F0RMAT«20X, •••••  MODE  SHAPE  NO.  •«12,*  •••,*,/) 

999  FORnATUH0,29X , ‘ENERGY  ANALYSIS  PROGRAM •/ 22X,  00310000 

1 C5?“‘  SClAfiftA  /1SRAT2*77r'~~  b0320000 

VRITE  16,999)  00330000 

WAITE  (G,9B5)NONOO,NOSA1 tNORCT, NORCO) NOPROP, n AX  NOD, NODE L, NT  DIAL  0 0350  000 

I"  ■ ■,NHASV,NriC,NHAs6i5CALE  ' 00360000 

985  FORMAT  <9X,lbH  NO.  OF  NODES  = 16,7  9X,25H  NO.  OF  STRUCTURAL  ELE MENO 03 70 00 0 
1 ANTS  = 16  / 9X,23H  NO.  OF  RETAINEO  DOFS  = 16  / 9X,  OO3BO0O0 

i JafOS.  OF  fitOUcto  esrg  = U 7 9X,r6lt  7io.  or  material  ' oosoooso 

3 13H  PROPERTIES  = 16/  9X,2)H  MAX.  NODE  NO.  USED  =16/  9X,  OOAODODO 

A P2H  NO.  OF  DELETED  OOFS  = 16  / 7X,20H_FULL  SIZE  OF  MATRIX  OOAIOOOO 


? l9fT  BEFORE  RtOUtllON's  l6  /‘^X.IbH  No.  6F  VARlAtloN=16/  9XOOA20000 

6 ,21H  NO.  OF  Ct6CNVECTORS=16/  9X,20H  NO.  OF  MASS  CROUrS=l6  00A30000 

7 / 9X  • SCALE  FACTORS*, ElB. 6 7 

WRITE<6,A915)  NSPEC  _ _ OOAAIOOO 

■ A915  FORMATl  lOX  ‘ND.  OF  SPE C I At  ELEME NT S=* , 1 6 ) 

WmTt(6,A916)  FLOAO,FOEFL, OMEGA  00AA5000 

A916  FORMAT*  lOX’NO.  OF  LOAD  CASES  = *,F6.B  / lOX  Of  DEFLECT  I ONS£*  ,00  AAA  000 

■~r'F6i0“'ri6x  •EXCITING  Fpfo{cPS)i*,F6.0  ) 

WRITE(6,9n6)  (Et(I»,XMU<l), 1=1, NOPROP)  00560000 

9B6  FORHAU  / lAX  20H  MATER  I AL^OPERTl /lOX  RHMO DyLO_S . 19 X _7HP0ISS0N00 560 0 0 0 
i 6H  RATIO  !/  6X  FIS. 2,  15X  FIO.A))  00570000 

WRI If (6,9676)  *OPTION(IOPn»»l),l=l ,A)»OPT10N1NOYE)  00571000 

9676  FORMATl  ^I5J(  « INPUT  OPTIONS*  / IPX  ♦INPUT*,  lAX  AA  / 1 OH  «FULL  l<*005T2000 

1 ',  i3X  AA  / ibY  •FINAL  M*,  12X  AA  / lOX  ♦DTNAMIC  MATRIX*,  5X  AA  / (10573000 

2 lOX  ’UPPER  MESSENBERO*,  3X  AA  / ) O057AO0O 

WRI  It (6,9677)  WONE  _ _ 00575000 


9f.77  FORMA!  I |0X  *E IGENVtCTORS  CALCULAIED  FOR  EIGENVALUE?  GREATER  THAN00576000 
1*1  F13.f.  ) 00577000 

lF«AS.fQ.l,)  GO  TO  686  __  _ 006J1000 

ICOUNTrl  - - - - - Qotjjnoo 

KOUNT-t)  00630000 

CALI  LOADER  !SKPi?I  _ 006A0000 

WRnr«6i90AI  MS  - - - - - 

9B7  FORMAT  (3?X«1AH  ACTION  TABLE  /IX  B0«lH-»/  00690000 

_ 1 3X  •NODE’i  7X  «X«t  IIX  »V»«  9X  6X  «NONE*,  3X  ♦NTUO»  t_l OOTOOOOO 

URifC  <6,987)  " - — - 00720000 

6B6  CONTINUE  00720100 

JJ=1  __  00760000 

bo  1 1 ::l,NbN06  ' ‘ 00770000 

READ  (5,800)  NODE , X < NODE) «Y( NODE ) ,2 < NODE ), NONE ( NODE ), NT W0( NODE ) , 00780000 

1 (OUHII Jl) ,IJ1=1,A)  00790000 

iF<  AS.EQ.i  . ')  GO  TO  687  ' ' 60791000 

IF<  ICOIJNT.NE.Sl ) GO  TO  9 00800000 

CALL  LOADER.  (SKP,2)  00810000 

URiTE«6,96A)  MS  ■ " ■ 

WRITE  (6,987)  00820000 

lCnilNT  = 0_ 00830000 

9 icOUNT=rCOUNT,l  ' ' 00890000 

800  FORMAT  ( 1 3 , 3E 1 0 .0 , 2 1 3, A A 6)  00850000 

WR 1 TE ( 6 , 998 iNOD  E ,I , X (NODE ) «T(NODC> ,2(N0DE) , NONEtHODE ) , NTUOt  NJDE ) ♦ 


1 <(IUM<  IJl)  ,t  Ji=l*A) 

998  FORMATOH  , 1 3,  1 A , 2 X , 3F  1 1 .8  c 3X  « I 3,3X  , I S,  2X  « A A6) 

GS^JCALL  UNPACK ( NONE < NODE ) ,NTWO( NODE ) ,KK ) 

OO  TOO'L  ' 

HAp(JJ)rNODE 

JJiJJ*! 

'"too  continuT 
1 CONTINUE 

DO  50  1 =1,3000 

56“XMS<  1 )JrO. 

30  REAfld  1,ENO=90)NOOE  ,LL*  (HNS < 1 ) « 1 = 1 *6) 

1F<  LL«NE«MS)GO  TO _30  „ _ _ 

H=6*NODi: 

DO  70  K=l,3 

XMS<M-3*K>=HHS( K)  

70  XMS<H-6*K)=HHS<Ki5) 

GO  TO  50 

90_CONT_1NUE _ 

CALL  Loader '(stip, 2)  ' ' 

URITE<6,90A)  ms 

989  FORRATdX  ROdH-)/  18X,*HAP»//  (3X,16IA)) 

NOW:NONOn,6  

WRi  fEr6,989  MHAP<  i ),i  si,NOiii  

911  FORMAT  dx  R0(1I(-)) 

WRITE  (6,911) 

156~TfTAS.EQ.1.)  00  TO  688 
CALL  LOADER (FLIP, 2) 

WRITC(6,90A)  H.S 

6BB  NAxiAL^'o ' ' 

NSK  IN  = 0 
NBEAM=0 

6066  NAP  rNOSAT,NSPEC‘ " ’ 

1=0 

. 00  11  1N0EX=1,NAP  

1F(  INDEX. fef  .MSPEC)  GO  TO  9065  ' " ‘ 

DO  28  LS=1,A 
28  WOROS(LS)=TWORlL3J 

NM  = b 

f10:0 

RE  A 0(5, 5055)  NT YP,LN1,LN2,LN3,LNA ,MC, ( SEMP IL ) ,L  = 1 ,A ) 

6055  FORMAt(5!3,ll,AE10.0)  

WR1TE(6,2371)  NTYP,  LNl ,LN2,LN3 ,LNA ,MC, (SEMP ( L ) ,L =1 , A ) 

2371  FORMAd  IX  BO(IH-)  / 21X  *SPCr.lAL  ELEMENT*  / » TYPE  =»,1A, 

1 • LNl  =*,IA,  * LN2  =*,IA,  •'  LNS  =•,  lA,  *”NA'=«,  IA  / 

2 * PROPERTIES  =*,I2,  A(  •,♦,  tlA.5)> 

IFINTYP.NE.O)  CO  TO  3035 


00870000 

_00920000 
00980000 
00970000 
009BODOO 
' 6 iOAOOOO 
0 1050000 
01050200 
~bl050220 
0 1050280 
01050282 
01050286 
01050289 
01050260 
01050252 
01050270 
01050272 
01200000 

01230000 

01230100 

01280000 

01250000 

01260000 

01311000 

01320000 

'01580000 

01350000 

01360000 

01388000 

D13881C0 

01385000 

01386000 

01386100 

_01386200 

01387000 

01388000 

01389000 

01389010 

01389020 

01389030 

61389080 

01389050 

01389100 


• a 


781 

N1=IN1 

01389200 

N2=LN2 

01389300 

N3=LN3 

01389900 

IFINR.En.I)  GO  TO  5631 

01389500 

UTVPE=2 

01309600 

TEMPI 1)=SEMPI91 

01389700 

TEMPI2>=0. 

01389800 

TEMP<3>=0. 

U13B9900 

NM3l 

01389910 

GO  TO  7777 

01389920 

5631 

NTYPE=9 

01389930 

DO  6161  J=l«3 

01389990 

Gini 

TEHPId)=SEHPIJ) 

01389950 

NH  = 0 

01389960 

CO  TO  7777 

01389970 

3035 

IFI NTYP.NE.6I  GO  TO  9095 

01390000 

RRl 

1FIM0.6T.21  GO  TO  3611 

01391000 

NTYPE=3 

0)092000 

N3=LN9 

01393000 

00  6212  J=l»3 

'1399000 

6212 

TEnP(dl=SCHPH  ) 

0 1395000 

iFlMO.EQ.2i  GO  TO  37li 

01396000 

N1=LN1 

01397000 

N2=LN2 

01398000 

MO  = 2 

01399000 

GO  TO  7777 

01399100 

3711 

N1=LN2 

01399200 

fJ2  = LJi3 

01399300 

M0=3 

01399900 

GO  TO  7777 

01399500 

3611 

NTYPEsP 

01399600 

N3  = 0 

01399700 

TEMPI2)sO. 

01399B00 

TEMPISI^O. 

01399900 

iFIM0.CQ.91  GO  to  3Rli 

01399910 

N1=LN1 

01399920 

N2slN2 

01399930 

TC«'PTli=StMPr21 

di399990 

MO  = 9 

01399950 

GO  TO  7777 

01399960 

3611 

NirLNI 

01399970 

N2=LN9 

01399980 

TEMPI  1 )=SEMPI3) 

01399990 

Ro=o 

diiooobi) 

CO  TO  7777 

OIADIOOO 

9015 

WRITC(6«7227) 

01102000 

7 227 

‘FORHATI  7/  5X  * fNCORRECT 

iDCNiiFicATio'M  E OR "spEci AL* ele'ment * “i'  "oiioiobo 

CALL  EXIT 

OllOAOOO 

•(OfiS  RC*0<0»fl01  >_NII£5.*  * il?.’  W3«WC»<TtMP<  J)  , J=  1 t3>»tW0RDS<JZ)»Ja=l«R» 
"eorPORMAt  Tfx  , Il»3I3iil  « SciOtO«M6i 
GO  TO  877T 

7 77T  NOS*T  = NO_SAT*X 

fl7'77'  i = i«i 

IfTNTYpE.EQ.OI  N7YPE=3 
IF  (HC.Eo.o)  nc=i 

IF  Tintype. neTJi. OR  .<teRp<2T.Ne*o.T}  go  to  loo 
TEHPI2)=TniPM  7 
TEPPI3)=TEMPin 

100  CONTINUE  

IF  INTYPE. NE.21  GO  TO  101 
IFlAS.EO.l.)  GO  TO  GOi 


WRITE  UioVi)  N1 f N2»HC» TEMP 111 ♦lUORDSIJI iJsliR) 

992  FORRAT  1 1*80  1 1H-) /2 IX 19H  AxUL  ELEMENT/2X3HN1 2lR«2X 3HN2  = M*  2* « 

1 lAHHATERIAL  C0DE  = I2«2X«  SHAREAsEI 2 .5> 2X tR AG  ) 

681  NAX  i AL=NAxi  ' 

NOnFll  n=Nl  ♦100*10»NTYPE*HC 

N0DE2I  I>=N2*1000«N3 

TEfiPii  n=TEiipn) 

TCHr2l  n=TERPI2) 

TEHP3IH=TEHPI3) 


OllOBOOO 

oiiioooo 

OIAllOOO 

01511000 

01512000' 

01520000 

0153000q_ 

oistiooho 

01560000 

01570000 

diseoooo 

01620000 

01651000_ 

dlGGCOOd 

01670000 

01660000 

01690000' 

01700000 

01710000 

01720000 

01730000 

017A0000 


407 


no  10  10 

101  IF  INTTPE.NE.St  CO  TO  102 

IFIAS.EO.l.)  GO  TO  fi82 ^ 

WRITE  <6t993> 

993  format  <1K  B0(1M-)/2AX  25H  TRIANGULAR  SKIN  ELEMENT  1 

WRITE  I f.»  99A  ) NltN2iN3iMC»LTEHP<UM  J=I>3>«IW0RDSIU)<J  = I tR  >... 

99R  FORMAT  1 2X » SHNl^lRi  2Xi 

1 3HN2=lRi2X»3HN3=IR,2XtlRHMATER!AL  CODE =12 *2 X ♦ 3H t S=F 7 

2 3 H T X£F  7.*  R n ?_3  H T Y =F_7  .Ri  2X  RAG  ) 

6fi2  NSKlNeNSKINil 

NO  DEI  I n=Nl*100»10»NTYPr»KC 

N0DC2I  1 1=N2»1000*N3_  . 

TEMPUl  )=TEHPi  i J 
7CMP2(n=TEMP«2l 

TEMP31 1>=TEMP13> 

CO  TO  10 

102  IF  INTYPE.NE.RI  CO  TO  103 

lF(AS.EO_.l.i  GO  TO  663  ...  . 

Wfii  TE  16,9951 

996  FORMAT  < IX  80I1H-)/  21X  IRH  BEAM  ELEMENT  1 


01 f5UUUU 

01770000 
01801000_ 
"OISIOOOO 
01R2003D 
01630000 
OISROOOO 
>R«2X,01B50000 
_ _ 01860090 

oietoooo 

01R9000D 

01900000 

01910000 

01920000 

01930000 

oi9Ro6o6 

01960000 

01991000 

02000000 

02010000 


95R  FORMAT  < 2X,  3HN1=1R,  2X,  02020000 

1  3HN2=1R ,2X,3HN3  = 1R,2X,1RHMATER1 AL  COOE  = 12 ,2 X ,3H I Y=E 12  .5 ,2X02030 000 

2 , iHJX=E12.5/2X3HAW=E12»5,  2X  RA6  j ' 02OR00OO 

WRITE  <6,95R)  N 1 , N2  , N 3,  fiCt  ( TEMP  I J > , J=1 , 3)  , I UOR  DS  ( L ) ,L  = 1 , R > 02050000 

6B3  NBf  AHrNHEAM,!  _ 02060000 

Nonf  in  )'=Ni  ♦ioo*i6iNTYPE*Mc  “ ‘ '02070000 

NOr)t2n  )=N2»1000<'N3  02080000 

TEMPH I ) =TEHP<  1 1 _ _ 02090000 

tEMP2<f»=frMPi2) 021  00000 

TEMP3<n=TEHP(3)  02110000 

10^3  CONTINUE  02170000 

iriFnNDEX.GT'i'NSPEc'i'cO  'to  ii  “ ~ " 02160000 

IFIUK.Efl.n  GO  TO  781  02181000 

IF<  HO.MF^.O)  GO  TO  861  . , _ . _02182000 

"ii  CONUnOC  " ---•  02185000 

WRITE  <6,911>  02190000 

NTOT  = NAXIAL«NSK  IN*N(iEAM  0 2200  000 

WRITE  <6797/1  ■NT6T,NAxiAL,NSKiN,NCEAM  ' ■ " ' 02300000 

977  FORMAT  <9X,37H  TOTAL  NUMBER  OF  STRUCTURAL  ELEMENTS  I6/9Xt  02310000 

1 23H  NO.  OF  AXIAI^ELEMENTS  16  /9X,  _ 02320000 

i “ 23H  NO.  OF  SRIN  CLEMENT^  ' 16/9X,  ' 02330000 

3 23H  NO.  OF  BEAM  ELEMENTS  16/1  023R0000 

CALL  L0APERJ[SKPt2X .: __  02510100 

WRifE'(C,90Rl  MS 

00  R2  J =1,N0SAT  02520000 

N1  = 1'0DE1(  JJ/100  _ 025ROOOO 

N2=MODE2<0r/1000  " " ’ 02550000 

N3  = NOrjC2(01-1000*N2  02560000 

_ N01=:N1 02570000 

"NfYPE  = '<N00El<JJ-100*NOll/l0  02590000 

R5  MC=NOnEH01-100«N01-lO*NTYPE  02760000 

_E  = Et(^MCl  _ ^ 02770000 

TEMPI ll=XMU<Hci  ■'  02780000 

IF  <NVYPE.E0.2I  TEMP < 1 1 =TEHP 1 «U1  02790000 

TEMP(21=TEMP1( J I 02800U0O 

fEMP<31=fEHP2< Ji  ""  ~ 02810000 

Tf  MP(<H  = TEHP3<  J1  028200DO 

DO  76  N = l,12  ^ 02828001 

76XX(Ni=0.  ■'  " "■  ^ ' 02828016 

DO  72  M=l,NOW  02828020 

IFCMAPIMl.EO.Nl IGO  TO  7R  02828030 

72  CONTINUE  ' ■ 628280RO 

7R  DO  73  N=l,3  02828050 

XX<N1=XMS(M-,N-1  I _ _ 02828060 

IFINTYPE.r.0.RiXX<N«3i=XHSfM*NF21  - - — • - - '02828070 

73  CONTINUE  02828080 

00  89  M=i,N0W  02820090 

IF(HAP(Mi.EQ.N21Gb  fo'sl  ' ‘ ' 02629010 

89  CONTINUE  02829020 

81  00  82  N=R,6  02829030 


408 


IF (NTVPE.FQ.^JCO  10  l1 
XX<N):KHS(M*N-<*  > 

GO  TO  PiP. 

n ■■  ' " ■ 

XX»N*fc>=XHS<n*N«U 
82  CONTINUE 

' ir<NtY(’C,NE,SJGO  TO  B*  • 

00  «G  M=1,N0U 

ir<MXf  <M).EQ.N’S>GO  TO  85 

fife  CONTINur  _ _ 

'85  no  87  N::7t9 ■ - . . . _ - ....... 

37  XX  <N)  = x8S(M-»H-7  ) 

8*  CONTINUF 

■ 79  Format (iHo'iJEiV.Ti  "■  - - - 

900  FOR8AT<lHO,7t8> 

_ CALL  SFTUP<NTYPE»Nl»N2tN3«C«TCMP<X»T«2«NONE»NTWO»XBKtl2  <VO> 

<Nf YPt^tO.Ai  CALL  PESORT  ‘CXBKI 

9A  FOR8ATnHO«8El‘l  .71 

no  9C.  J<flil2 

xip<K)=oL 

no  ?6  I=!.12 

9fc  XlP<K>=XXn  ) *XHK<ltK)*XlP«KJ _ 

■ xif'<i>sX!P(  n*xx<i) 
no  97  1=2,12 

97  XlP<l)=XTP(l)«XX<lt*XlP<l-l) 

XCONl  Jl  =X!Pn2r'  - - - ' - 

IFTPTYPC.NE.2JGO  TO  300 

UR  I TE(<.,992)  N1^N2,MC,TEMPU> 

VoArVOiVOA ’ 

VOLUNC J)=VO 

GO  TO_3C2 

300  !MNtYPt.NE'.9)Gd  TO'Soi 
UR] Tt(fc,995) 

URlTC<f.,95A>Nl,N2iN3,NC,<TEMP«W»fN=2«4) 

Vdp=VO«v6B' 

VOLUMlJlsVO 

GO  TO  _3£2 _ 

301  WRrTE<(.,993) 

UR1TE<6«99A)N1  ,N2,N3»HC,(T£n'p(N)  «N:2«A) 

VOS=VO-FVOS  _ 

v6lum<j»=v6 

302  CONTINUE 

URITE<<.i901)XIP{l2ltVO _ 

901  FORMATllH  ,10X, ’STRAIN  CNERCY  * • ,r 15.7 , SY i/OLO«E  = *,£16.7) 

902  FORNATTIM  ,10X, ‘TOTAL  VOLUNE  = ♦«E15»7/1JX* 

I’TOTAL  AXIAL_VOLUME  = »_♦£  1 5 • 70J5<  ♦ 

2’TOTAL  nEAN  VOLUME  = • , El 5. 7/ liX ? ‘T OT AL  SPIN  VOLUME  = *,£15.7) 
92  CONTINUE 

REUINO  B _ 

f§E=6.6 

DO  17  N=l,NOSAT 

TSE=TSC  ♦XCONUJ)  _ 

STO  = XCON«N)  ('VOLliMiN) 

UR  I TETP)  ST n, Noon  < N > ,N00E2 TN» r TF MP 11 N ) t T E MP2 « W J » TE HP3 1 N7 

17  CONTINUE _ 

' WRnCTf.,963>  fsC 

905  F0RMATT//1H  ,10X, 'TOTAL  STRAIN  ENERGY  '‘♦ElB^TT 

. . s=o  . 

N=0  ' ' 

WRl TETRI  S,N,N,S.t>S 

MOS.''T=NOSAT-l  

DO  12  N=1,'m6sAT ■ T' 

IP1=N»1 

ri  12  =IP1,N0SAT 

TV- TXCONlN.'.uE.XCONTKilGO  TO  >2 

SORT=XCONIN) 

XCON(N)=XCONTK 1 

XC0N{K)=SORT  _ _ 

■>.ORT  = VOI.UfUN» 

VOLUHTN)  =VOHIMf  KJ 

VOLUM(K)=SnRT  __ 


4G9 


028290  il 
02829033 
02829030 
02829037 
028290  59 
02629090 
02829091 
02829093 
02829095 
02829097 
02829099 
02829050 
02829052 
02929058 
02880200 
02870000 
02880000 
02880200 
02880300 
02880900 
02880500 
02880510 
02880520 
02880550 
02880590 
02880591 
0288059? 
02880599 
02880596 
02880597 
02880599 
02880550 
02880552 
02880555 
02880555 
0288055  7 
02880559 
■02880560' 
02880561 
02880562 
02880565' 
02880570 
02880572 
02880573 

02880575 

02880576 

03250000 


03250010 

03250100 

03250110 

03250120 

03'’50130 

(15251)190 

UJ25015G 

03250152 

03250159 

03250155 

23250156 


NflP  T-Nort  UN) 

NOD)  IKNI^NODfUK) 

NOnni)  K)  rttOR  T _ 

f.'OR  T::rjnilfc2<  fl'i 

NOD) 2 <N)rNOnr? I K) 

NPOr  2 <K  )-)Jf)tiT  _ __  

SORU  1 tripufi) 

TFRfl  !M)r»f:NPltK) 

TCHPl  I K)  r.J.O(l  T 

SORT^Vf  Mpj'lN) 

TEMP2(M)=Tf;Nr2(h) 

TrttP?(Klj:SOR  T _ __  _ 

EOHTrfFNPi)  N)  ' ” 

tFMr,’ilN)  = TEMP3(K) 

_ 1f:HP3<K)^S0Rt_  _ 

ii> "CONTI Niif  

SCWIND  ? 

_«niTf)N)  TVOUVOfti  l'OB«VOStNOSATtHS 
■■■'  NR  i ft ) 9)  ) XCON  ( i ) r i =i  iNOSAT  ) 

URITDg)  < lf(n.UMU  ) « 1 si  *K0S*T) 

WRITE  to)  (MOOtl  !niI  = l.N0S*1!J_ 

"iiRfiEig)  TNbciE2ci)4i=i*KdSAT) 
URITIDN)  llFPri<riU=l«NOS»T) 
WRMEO)  <TtFI'?<ntIsl»NOS»T) 

wRiUrg)  Tf  r-Rii’ 5 <1)71=1  Vn5 sin ) 

RETURN 


0 J250  161 
03250 162 
03250163 
0325016R 
03250165 
03250 166 
(13250170 
(132501  /1 
03250172 
03250173 
03250170 
.03250175 
03250176 
03250177 
03250178 
03250179 


ENTRY  AJLNK!’ 

"rewind"  R 

REWIND  9 

READC  D)  TUOL  iVOSuVOBtVOStNOSAT^HS 
'<j(CO"N<"n  » lii  VNOSAT) 


READO) 
READ<9) 
RE  ATM  91 
PEADUir 
nCA0(«,l  1 
READ (9) 
”kEa()<9T 


( VOLUNl  n *I=UN0SAT1 
<NcinEi(i:i«i=i*NosAr) 
■(NClbE2<  IJ*i=itiNOSAfr 
<TEMPUr),l=l,NOSAT) 
<Tt;NP2<13»l  = l.NOSAT» 
nFNP3( iJiisi;H6sAT) 


TVOl=VOA< VOS 

WRI TE<  6,902) TVOLi VOA ,VO0, VOS 

no  is  Ml =1,2 

CALI  LOADER  ISKP,2) 

URlTr<6,90A)  MS  _ 

"PO  i 3 NL  = i ;>i()SAl 
NrNOSAf'-NL*! 

IF  (t1L  ,CQ.2l  HEAD(B)  STD,NOOtl<Nl  «NOD t2  ( N > , TE  MP  1 ( N ) , TEMP 2 ( N > , 

1 ft)iP3(M) ■ 

Nl  = NDDir  1 (Ml  /lOO 
N2rNDOe2<M)/100n 
hS  = N0DE2JN)-l(ibb*N2 
NOl  --NI 

NTYPF.  = ( NOIlEl  (M)-100»N01  I/IO 

HC  = NOD(  l(Hi-iDO*N01-10»NtYPr 


03250180 

03250181 

03250182 

03.250180 


■o.l2toiee 

03260190 


03250210 

03250220 

6325U2A0 

03250250 

03250260 

03250270 


E=EF(MC) 

TFHrM  1 ):XII'IH«C) 

IF  ( MITPE.li  O .2)T  EMP(  1 ) = TEMPHN) 

TFMP{2)  sTl'  MPl  (N)  

Ti;HP<3)  = TrMP2(N) 

tcmp(auti:mp3(N)  

IE  ( NIyPE  .NE  .2)60  TO  IR  ' " " 

WR  1 TEi16,992)N1,N?,HC,TEMP(1) 

IF IML,En.P)URlTF<6,1003)STO  _ 

i 003  FORMATdH  ,25x, 'STRAIN  OENSiTV  = •7C1A.7)  

IF ( EL. FQ.2) 60  TP  15 
VOAT=VOLUM(N)/TVOL_ 

VriAAzVOLUHiNiyvOA 

WRI TE«  6, I 00  2 I KtOHT  N) ,VOAA,VOAT 
1 002  FORMATCIH  ,P5X, 'STRAIN  CNEROY_=  ' ,E  15 .7  , / 3)!  , 

I'EL.  VOL.  } GROUP  VOL . = • , tl 5 W , 2X ♦ • LL  . vOl.  7 fOTAL  VOL 
GO  TO  15 

lA  IFOlTTPE.NE.'llGO  TO  16 


03250280 
0 32502911 
0 3251,  .TOO 
""  03250.51  0 
03250.520 
0 32.50  5.50 
0 32605R0 
0 3250  550 
0325l'..’!;>.? 
03250555 
0 325(1  TDA 
0 3.2 50  ,’.55 

03250356 

(132  50  35  7 
05250358 
•'♦11577)0325(1.559 
03250560 
_ 03250370 


T 
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iH63! 


' UR1TE(6,995)  

URIIEtfi,9!i9)NltN2»N3«l1C*tTtHPIKIoKS2»9) 
-.?f«f'UCQ.2IWRtTt<6,100%»STO  ’ 

IF<HL.t0.2»G0  TO  15  ' — 

VO*TrVnLUW»N)/T VOL 
yOiHrVOLJJfl  NJ/_yOB 

WR I T t fo ♦ 1 0 0 5 )"x c ON  ( N f ; v6 ie ^voiT 

VOAT^VOLUHlNl/TVOL 

v^g»s=yoLy!MN)/vos 

WR  I U T 6 ; 1 0 0 5 ) X C ON  < N ii  VO  A S . WOTf 

‘^WEROV  = .,E15.7,/3X* 

CONTINUE 

RtlURN 


TOTAL  V0U.= 


0J250372 

03250380 

__03250381 

03250383 
('3250  385 

03250387 

03250388 ' 
03250390 

63250392 

03250900' 

03250901 

03260902 

03250903 

03250909 

03250905 

03250906' 
03250907 
•*tl5. 7103250908 
flJ25o9i6' 
03250930 

03710000 

03720000 


MEMBER  NAME.  flEA'M689  “ 

SL.IROUTINE  fitAM(XUYl«21<X2,Y2. 
IMPLICIT  RCAL*8  (A-H,0-7» 

dimension  OM»T(lS,l2,,oH|-,6Vi2i 

nOUPLr  PRECISION  Ll,U,j,\„y 
S0RT(XJ  = OSORT<X> 

Aes<x)  = OABsix)  ~ 

MU=XMU 

X31=X3-X1 

T3  1SY3-Y1  ■ ■ — 

731=23-21 

..  ..  XJ2  = XI-X2 

Y12=Yi-Y2‘  

712=71-22 

X13=X1-X3 

Y13rYl-Y3'"  

21 3=21-23 

... SU1s(1./3.)_ 

SU3  = <2./3.')  • 

n=Yl 

6"<N  __ 

"oi  = xj'  

SL  = .S(3PT  (X12»>»2*Y12»*2*2129»2i 

„ 

G = E 7(2, * < 1 , 4Nu»  ) ' 

‘.A  = 0. 

K * GO  _TO  1 05 

EA= ( 12.<i. i i I/fo* a*SL»  »2 j 
105  f = (6.T*  U)/<SL**3*C1„*SA)> 

G 

DO  fj  J = } f 7i  ' 

t l,d»  = 0.0 

.?  CONTINUE 

nK(  i,i )=2,»F  

BK(3,1)=-SL«E 

^_PK(9,J)=-?..F 

P'K  f 6 , 1 > = - sL  F 

BK(2,?)=g*J1/SL 
___  PRt5,2)=~(C«Jl>/SL 

BK  i 3,3)  ='SU3'.SL  • *2^ F i (1  .'iSA/ATT' 
UK  < 9,3) =SL*  F 



PK<6,9)=SL<'F 

PK(5,5)=G«dl/Sl 


:,XMU,Yl,Xd,AU,BMAT,VO]00020000 


I ,C(3,3) 


OD030000 


00070000 
.00080000 
00100000 
D012DOOO 
, 00170000 
00180000 
00190000 
00200000 
0021DOOO 
00220000 
_00230000 
00290000 
00260000 
00270000 
00280000 
00300000 
_OD3OO01O 
00310000 
00311000 
00312000 
00320000 
00330000 
_00380000 
00590000 
009DODOO 
. 00910000 
00920000 
00930000 
. 009900  0 0 
”00950000 
009  70000 
00980000 
'00500000 
00510000 
00520000 
O0590OD0 
00550UOO 
00570000 


••  iWilfcAul  11.x  ii-99  ,in  _ 


CK  «£i*6i  = SU3»SL» 

PO  0 I =1«6 
_ DO  8 0 =!,6 

'8  0KniO)=PK<j,I)  ~ 

XJ1=X?-X1 
X21=:y2-Yl 

'Z2i=z?-2i  ■ ' " 

0X=5QRT<XZl*»2*y21«*2*Z21**2» 
XBX=X21/0X 

ir6)(=Y2r/6x  ' ‘ ' 

ZBX=Z21/DX 
00  100  0 =lt3 
idi)  bi - - 
0< 1 ,2»=Y1 
n<2 .2  ) =YP 

0(3,2):V3  _ 

D(2,3>=Z2' - 

0( 1*3I:Z1 
0<3*3)rZ3 

■ CALLOtf  ?0,A> 

no  101  0 =1,3 

101  D«J,2)=1.  

PI  1 ,1 »=xi 

0I2,U:X2 

0(3,1  )=X3 

CALL  bci  <0,01 

00  102  0 =1,3 

102  0(0,31=1.  _ _ 

D(1,2)=Y1 

0(2,21:Y2 

0(3,P)  = Y3  

CALL  OCT  <D,Cj 
P0syQ0T(A«*2<n*‘2-*C**2) 

XBYsA/nO  _ 

¥0Y  =B/flO  

ZBYrC/BO 

XRZ=<TBX*ZBY)-(YBY»2BX) 
YP2-(XBY*ZRX)-<XRX»ZBY>  ■■ 
ZPZ=(X0X*YBY)-(XBY»yBX) 

no  9 I =1,6  

00  in  0=1, i 2 

lU  OMF(I,0)=0.0 

9_  COHTIKUE  

bMC(i,i j=xBZ 
0ME(1,2)sYBZ 

OME(l,3)=7BZ  

OME(A,Ai=XBZ 

0ME<A,5)=YRZ 

OPE  (^}6,LB.Ze_Z ^ 

0HE'(2,71  = XBX 
OME(3,7)=XBY 

_ _OPE  (2,0)  =YBX 

bHr.(3,0)=YPY 

OPr(2,'7)=ZBX 

OPE  ( 3,P)  = ZBY 

O'mLISyK'IiXF'X 

0ME<5,in=YBX 

OME(ri,J^)=ZOX 

bMr<6,io)=xnY 
OPE (6,11 )=YBY 

CiPE(6,171=ZHT 

bo '3  1 =1,6 
DO  3 0 =1,12 

7r(^P(  1 ,JJ=0.O  

no  s'l!  =1 ,6 

3 TEPP( I,0)=7EPP( I,J)*BK(I,K)»0Mt(K,0) 

EjO  11__1  ^ 


00500000 

00610000 

00620000 

00630000 

00690000 

00700000 

00710000 

00730000 

O07AOOD0 

00750000 

00760000 

00709000 

00790000 

ooninntio 

O0S2O00() 

00830000 

00860000 

00860000 

00870000 

00090000 

00910000 

00920000 

O09A0000 

00950000 

00960000 

00900000 

OIDOOOOO 

01010000 

01030000 

01040000 

01050000 

81070000 

01090000 

OllOUOOO 

01110000 

01120000 

01140000 

oiiboooo 

01160000 

01180000 

01190000 

01200000 

01210000 

■01230000 

01240000 

01250000 

01270000 

0 leeoooo 
01290000 

oiiiopoo 

01320000 
0 1330000 
'01540000 
01350000 
01360000 
013BOOOO 
0 1390000 
01400000 
01420000 
01430000 
01440000 
0 i4  70000 
01480000 
01490000 
01510000 
01520000 
01540000 
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no  11  J rltis  01550000 

nKllT(I«Jt=0<0  01S6000C 

no  n K =1«6  01570000 

13  BMiiT(I,J)=8Hif  ri*JiiOliECK.'l»«fcnp(ir,jr  ■"  01590003 

IF  (ARSIBnAT(l<J>I.CT.*l}  GO  TO  11  01600000 

R>*AT(I«  J)=0.0  01619000 

11  C0NlINUt_  01620000 

RFlilRN  "■  ‘ ' ' ' 01690000 

END  01650000 


nCHBCRNAME  Dtl6fl'9 

SUBROUTINE  OET  000200DO 

I«P1.1CIT  RCAL*R  <A-H*0-2> 

blMlNSlON  DlS*3i  ‘ '■  --  - - 00090000 

«NS=D(ltl>*n(2<?)*0<3t3)»nit,2)*Ot2t31«D(3«l>*CUt3)*D(2fn*D(3«2)00060000 
ANS=ANS-(0(34l)*n(2«2>*0(l«31«D<3<2MD(2«3>*0(ltl>*n(3«3)<Dt2tl>*  00070000 
i B(Ti2))  ~ ' " ■ ' ' ■ ‘ “^OOROObO 

RETURN  00100000 

END  00110000 


MEMPFR'NAME  LOAnsflo"' 

SURROUTINF  L 0 AU E R < A RR At »«OOC> 

I^FLICIT  PCAL*n  (A-H«0-SfU-2^ 

PIMENSiON  CARnib) iTiriEllsftARRAtll > 

GO  TOUOOfPOOJ  «MOnE 

_ 100_FrAP<^5»  101)_  NSUPtNO^CtCARO 

ibi  Fbp«A7{f97Trf5f  i9.7i  ' 

IF( NSUH.LE.O)  GO  10  303 

lF(NOPC.Lt.0>  CO  TO  303  

tF<N0f'f.-6ii09»3b3«lbB 

ion  IF  (NOPC-BM  02»1  llfll2 
109  no  no  dcARo=if fjopc 

Jarray=nsUb  '*  jeARb  - i " 

no  ARRAY!  JARRAt  I = CARDIdCARO) 

_ GO  TO  no  _ 

162'  nr  An!5«  103)  TITLE 
103  F0RPAT!16,17A9*A2) 

109  NPAGE  = 0 

GO  TO  100 

111  RETURN 

112  STOP  _ _ 

' ?Olj  NPAP!  ='HPAGE  * i 

WR1TE<6»201)  !T ITLt ! N)»N=2»19) »HPAGE 

__201  FORM  AT!  IHItITAA  { A 2 1 6 H_P  « I3.»//> 

RETURN 

305  VR1TEI6»309)NSUB*NOPC»CARC 

309  rORMAt!19H  INVAllb  DATA  CARD  tl9^1 1 »5E1 9. 7 ) 
STOP 
END 
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HE>fBtR  NAME  >»rNfcn9  - • - • 

nPLlCIT  REAE»B  «A-H,0-2> 

DIMENSION  HKS<?0I,n»IA» 30»  _ 

■ cnMnoN/LiNKA/LAP<ibb»  ♦xnoNbo»KN6sAf«i(Ji6RtitXN6RED*xfiop6i>»iKNo'rj» 
*rE<  3><XMU(3>«XNMASV,XNEtStXNHASG*SC«LE«EVSAVE  t XKS AVE « XNSPEC f 

»AS,rsH,RSP»DN<UHtWONEtOINV<POEFL«FLOAD«OBEGA 

COMHON/lINKAi/NfnTAltNbREttJlTAPE' 

EQUIVALENCE  (DATA (1 1 iXNONOO) 

no  AO  I = 1»J'0_  

Ab  nATAiDid^  ' 

500  CALL  LOAOERIOATA,!) 

KICL  = 1 

REAbif.iOOOINMS 
RrAp<?t2000  MHSS(  I > tIsl»NMS) 

DO  too  I=ltNHS_  t 

M'SrMSSrii  " - 

REWIND  11 
CALL  A3LNKl(nS} 

call  sorTsd" 

CALL  A3LNK2 
REWIND  5 

CALL  LOADER(OATA«ii  ' ' 

600  CONTINUE 

_J0^0  FQRBATi  15> ^ 

2'OOb”  FORMAT  U6T5»“ 

END 


MEfiBER  NAME  RESRTGflO"*'  ■ “ 

SUBROUTINE  RESORT  (XeKl 
implicit  RtAL*fi  (A-HtO-Z»  _ 

DIMCNSiON  X8K( 13«i2)«CXf<i2*i2i«flBP?12«i?i 
DO  1 1 5 1,1  2 

DO  1 iL=iri2_ 

1 Txf(i,J)20.b 
EXT <1,1 1=1, 

tXT<2,21  = U_  

£xi<3,3T=r.  - --  ■ 

EXT(A,7Jrl, 

EXTlbiRlsl. 

txfU,Rl  = l, 

tXT(7,A)=l. 

^EXT<fl,5)  = l.  _ _ 

'^txf  (Q,^)?!.' 

EXTdO, 101  = 1. 

= 

IXT(l?,121ri. 

DC  20  1 =1,12 

_00  20  _J  =1,12 

TEMPI  I , 01  = 0 .0 

00  20  K =1,12 

_ 20  Tf  HP(I,  jl=TEWPI  I,  JI«E  X T (ItAMKIlR  (KfJt 
DO  30  I =T«12 
DO  30  J =1,12 

_ XBX<1,J>=.0.0 

DO^  'SO  K =1,12 

30  XBK (I, JlsXDKIl, JI*TtNP(l*K|ACXTt J,K) 

' RETURN 

END 


00020000 

OOOAOnilO 

00060000 

ODOTOOOO 

boceoooo 
00100000 
OOIIODOD 
00120000 
00130000 
.001 AOOOO 
00150000 
00160000 
00170000 
OOIHOOOO 
00190000 
00200000 
*00210000 
OD230000 
.002AOOOO 
00250000 
00260000 
J0270000 
00290000' 
00300000 
00510000 
'‘00520000 
00330000 
0039000^ 

' od'ssoooo 
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KCUBtR  N»MF.  SETUPfc89 

SUBROUTINE  SETUP  (NTTPE  «N > (NS «N3«r • lEHP « X «T 1 2 tNONE « NTUO t X8K t IZ« VO) 0 0 0 10 D 00 
nPLKIT  REAL‘B  T*-M,0-2) _ 

nlNrNSfON  XRK(12tl?)  «XI300  )'«  V < 300  ) «Z  ( 300  T «NONE  > «Nt  WOT  R ')  t UNP(  0 0 OR  0 0 00 
t R)  OOOSOOOO 

_ 00  Ifif.  I =ltl?  _ _ OOOEiOOOl) 

■ DO  Ifcfc  J =i»i2  ■ - - - - - ---  - . 

166  XPK(I«J)=0.0  OOOROOOO 

IFTNTYPf.NE.Z)  60  TO  2R  00110000 

CALL  STRING  4 X ( nI  ) i V (Ni  I *2 < Nl 1 1 X < N2)  , Y I N2'>  <2 ( N2 ) t C« ( 1 1 1 XBK , VOI 0 0 1 20 00 0 
12-6  OOIROOOO 

r.O  TO  30  00150000 

2R  IF?NTYPfVTicTTj  g6  TO  25  00180000 

G=E2«P.*<1.*TEMPT1)))  00190000 

CALL  SK1N_«X4N1 )«T4Nl)»2<NlJ.XTN2)»TIN2)i2(H2>*X4N3),T4N3)»Z<N5l,_00200000 

i T;6',tr.MP12i,ft«P<l»»t£NP4R)*TEPPH)*x6Kiv6f  ' " 00210000 

12  = '’  00230000 

CO_JO  J0_  002R0000 

25  IF (NTYPt.NE.R)  CO  10  26  ' " - ' 00270000 

CALL  BEAN  (X(Nl)«T<NlIi2INl)«X(N2)«V(N?)«2lh?)tXINSI«Y(N3)«2(N3)«  00280000 

1 E«JlJ1P(l)«TCMP«2_t»Tj;nPT3J*UMP(R),XBK*V0)  00290000 

12  = 12  ' “ ~ - - - - “00300000' 

60  TO  30  00310000 

26  WRITE  T6«10> 00330000. 

10  F0RNAT<9X«35HNTTPE  n5.  IN  COLUBN  R IS  NOT  2«30RR  > 'OOSROOOO 

30  CONTINUE  00360000 

REIUJRN _ _ OORIOOOO 

end"  ■ " ■"  ■■  oor2oo6o 


MEMBER  tIAPE  SFIN6fl9 

SUBROUTINE  SKIN  ( XI « Y 1 t 2 1 t X2 t Y2 tZ2t X3 t T 3 • 2 3 «C • 6 i T S « TX i TT « XHU « OOOIODQD 

<TMAT«Vfl>  .00020000 

IMPLICIT  REAL*n  «A-H,0-Z»  ” ' ’ 

nOUPLF  PRECISION  HU 

SORKX  I=OSORr<K)  . 

Aes<x)=oAPSix) 

01  MENS  ION  THAT (12il2)40(3«3t «0HEI9«9>«BK«6«6> •TEHP(6«9>  tXXI  9>«X«6)00050000 


HU:XMO  

rOrSOR  i 4 (X2-xi  ) • l YZ-iri  )»»2Y422-2i)‘*2) 
COSXPX=4X2-Xl)/nO 

COSYBX  = <Y2-Yn2UO  _ 

COS2BX  = <Z2-2i)Vo6 

I = I 

PO  5 d =Lt.3 .. 

r;(JiI)=l. 

PI  1 ,2)  = Y1 

fl4p42»=Y2_  _ __  

“0(3t2)=Y3 
0(1  t3)  = Zl 

P(?.3)=22_  _ _ 

043.3):23 
CALL  OET  (O.Al) 

_D(1.1)=X1 _ 

0(2»1)=X2 

OI3fn=X3 

1 = 2 ..  

1)0  6 J ='  r*  3" 

DId«l 1=  1 . 

CALL_Djn  JDfBJ 

1 = 3 

no  7 J =lt3 

OlJ^Il^I.  _ _ 

0<i,?>=Y) 

D(242)=Y2 



'caLl  on  4b*C) 
r.l=SQRT4Al**2*B**2»C««2) 

COSXnZ=Al/Gl 


.00100000 
"oolinooo 
00120000 
00130000 
‘OOlROOOO 
00160000 
00170000 
OOIROOOO 
00200000 
00210000 
"00220000 
00230000 
002ROOOO 
00250000 
00270000 
00300000  . 
00310000 
00320000 
003ROOOO 
00350000 
00360000 
003ft0000_ 
OORIOOOO 
ODR20000 
00R30000 
'OORSOOOO 
OOR60000 
OOR7000D 
OOR90000 
00530000 
OOSROOOO 
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f ' 


f 


C6SYfi2=B?Gl 

C0S7BZ=C/G1 

CO SXBY=COSYBZ*COSZBK-COSYBK *005282 

cn5Ye?;co52B;iCTi5SBjr=coszBrrcB?*B2 

C05ZeY=C0SXB2*C0SYPX-C0SKBX*C0SYBZ 
no  8 I 

■ no  9j  =i,B  

9 OMC ( I » J)=0.0 
e CONTINUC 

UHrTirn^rcf^xB*  ~ 

out  U *?) =COSYBX 

our (1 *3)=cosznx  

0HtC2,n  = fc05XBY 
0ME<2*?»=C0SYeY 

0ME«2*3)=C0SZBY  

OHt i3.9)rC0SXeX 
0Ht<3tB»=C0SYBX 

0ME<3tB>=C0SZBX  __ 

0MEM*9»=C0SXBY 
OWE  <9*S>=C0SYBY 
OMr<*.fc)=cos;2PY 

OMC <5, 71 iCOSXBX  

OPr (5tP)-C0STPX 
OPr I5«9»=C0SZBX 

OMf <8«7»=CqsxeY  _ 

CMC  <9«R):C0SYBY  ' ■' 

OMC(fct9):COSZ0Y 

xx(n  = xi  

XX<?)=Y1  ‘ 

XX( 3)=71 

XX(A)=X?  _ 

XX  (0  = 77  

XX  <( ) = 2? 

XX(7>SX3  

XX(«|SY3 

XX(9)s73 

no  70  t = li6  

X< I 1=0.0 
no  70  J = 1,9 

70  X<  I)  = X(1M0ME<I,J)  ‘XXIdl 

X17  = X»i »-X<  3) 

X13  = xn)-X15> 

X71  =-X12  _ 

X23=X( 31*XI3> 

X31S-X13 

X3?=X<5)-X<  3>  _ _ _ 

Y17=X<2J-X«9) 

Y13=X<2)-X<6) 



Y31=-Yi3 

Y73rX<9)-X<(,» 

Y37=-Y23 

Az.G*(X7i‘Y31-Y21*X31>  " 

V0^««TS 

CO=TS«G./«i,^A) 

r.x  = Mu 
r.Y  r n . 

iniY.EQ.O.l  GO  To  105 

'oyrMU. TX/TY 

105  IFl TX.LT.TY)  GO  To  50 

cx  = n.  

"iKCTX.rO.O.)  GO  TO  200  "" 

<;X  = MU«TY/TX 

POO  GYrHll  __ 

50  COilTiNUt  ■ - - 

tY  = TY*r/(*. •»*(). -GX«6YM 

rxrTX*f / (O . ‘A* < l.-GX ‘GY >>  

PKI  i , 1 i = tX*  Y?3*  •PFCOixip**^" 

OKI  7,  1 » = T73tX3?«(f.  Y»GY*C0» 

BK(3, l)=tX<Y31‘Y234G0«X13*X3P 


00550000 

00560000 

00590000 

"OogOoooO 

00610000 

00670000 

00680000 

00690000 

00700000 

ootpoooo 

00730000 
00790000 
00760000 
00770000 
00780000 
00800000 
00610000 
00820000 
00830000 
00890000 
00850000 
00870000 
00880000 
00890000 
00910000 
00920000 
00930000 
00970000 
00980000 
00990000 
01000000 
b 1 OIDOOO 
01020000 
01030000 
01090000 
01050000 
01070000 

" 0 i oBoobb 

01090000 

01100000 

'OlllOOOO 

o: 120000 

01130000 
"bi  . I 90000" 
01 : 50000 
01160000 
0 1 1 70000 
01180000 
01 190000 

Glpoboub 
01210000 
01220000 
01250000 
01260000 
01270000 
01290000 
01300000 
01310000 
' 01320000 
01390000 
0 1360000 
01370000 
013RDOOO 
01390000 
019)0000 
01930000 
01990000 
' 01  960000 
01970000 
01980000 
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>=ElriGY*Xl  j*Y23*G0«Y5i«X32 
PKESil )=CX* Y12«Y23«GO*X21*X52 

PK<6jI  >=rY*GY*X21*  YP3460»YJL2»X32 

Pk< 2,21rtY;X32*»2VGb*Y23»«2 ■ 

PK( 3«P>=IX*GX<T31>X324G0»x13*Y23 
PKE 5,P»=rY»X13*X3?*G0»Y31»Y23 
ek«5«2»=i xiCX*Yi2*X324G0*X21*V23 
PK«P*2)=f  Y«X21*X3?«G04n24Y23 
RK( 3t5)=CX« YJl • •P400»X1 3*42 

eK<4«3)=CY«CY*X13»Y31»GQ»Y31*X13  

eK(b,3)=EX»Yl?‘Y3l4G0»X21*Xi3 

PK<f.t  J»=rY*GY4X?l*Y3l4G0*Y12*X13 

PK«'l.4)=EY*X13*»24G0*Y3l442  ____ 

PKE  l=rx*GX»'x  13*Y12VG0*X2i»Y3i' 
PX(P,^ )=EY*  X21*X134C0*YI2«Y31 

PK»'-..5)=tX*Y12»*24r,0*X2l4*2 

PX  lf-*fj)  = X?l  •Y12*«EY*GY4C0» 

PX  t G,G)5rY*X21 »«24G0*Y12»*2 

DO  100  1_=1,6_  _ 

00^  lob’  J =Ii'P 

loo  PK(!tJI=tK(J«n 

DO  10  I =l,f,  

no  10  J =iio 

TEHPtI, JlsO.O 

DC  10  K =l,fi 

10  u«r«  1 *oj=Ttiip< I, j» 4bMi iK>4onL(K« j> 

no  11  1 =1.9 

DO  11  J =1.9  _ _ 

lPAY<i.ji  = 0.o”' 
no  3 K =1.6 

3 T>IXTU.Jl  = TM*Tn.J)40WE<K.H4TCtiP<K.J> 
\F  (APGlfiiAf  (!.>.')).  GT..i>  GO  TO  11 
THATniJ)=0.0 

11  coNiiwur  

PTYURN  ‘ ■ 

END 


01990000 
OlOOOOOO 
01510000 
01530000 
01590000 
01550000 
01560000 
01570000 
01590000 
01600000 
0 1610000 
01620000 
01690000 
01650000 
01660000 
O16P0000 
01690000 
01710000 
01730000 
01790000 
01750000 
01760000 
01770000 
01  700000 
01790000 
OIBIOOOO 
01B30000 
01890000 
01B50000 
01860000 
OIBBOCOO 
01B90000 
01900000 
01910000 
01920000 
01930000 


NEHBER  TiiiiL  SORT 689 

SUBROUTINE  SORTSO 
IPPLICIT  RtAL*fl  <A-H.0-21 

oirtNsibN  STb<2  75bi  .NbDEiiSfboV.'NbbtpiptsbiVtEHpnFnoir 
1 TEPP2<27501*TEHP3t2750» 

«=I  

*RCuiNO  n' 


10 


15 

~iO' 


READ!  81  STOlNl.NOOEHNl  *N00E2<N),TLPPl(N».TEPP21N».TtHP31N) 
IFlNOOEMHl.EO.O)  GO  TO  15 
~N=N41  ” ' 

GO  TO  10 
PJ=N-J 

“xirN-l  : 

00  30  U=1.H 

1 = 1*1  _ ^ 

00  30  Xil.N  " 

IE<ST0(L>.GE.ST0(K)1  60  TO  30 
SORTsSTOiLl 
STDlC>=STO«XI 
ST0«IO  = 30RT 

_N0RT=N0DC1(L) 

NODEi(L)=MbpElCKl 
NOOEl (XlrNORT 
.N0RT=N0DE2<L> 


N0nE2(LI=N60E2<K»" 
N0nC2(X)=N0RT 
!0RT  = TEMPHL2_ 
TEMPI (l»=TE«Pl<K) 
TtHFUK)=SORT 
S0RT  = TEHP2ai 


OOOIDOOO 

'00090000 
00050000 
00060000 
00070000 
ooonoDoo 
00100000 
'o 01 10000 
00120000 
00130000 
60190000“ 
00150000 
_00l60000 
00! 7uboo~ 
00180000 
,00190000 
'b020000D 
00210000 
_0022000ii 
00230000 
002900U0 
00250000_ 
00260000 
003TDDDO 
00280000 
00290000 ' 
00300000 
,00510000 
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UHP2<L»=TFMP2(K) 

TEMP2(K»=S0RT 

S0WT  = TE«P3(L)  _ _ 

■ TtMP.VtLliTEMPMK! 

TEMPJCK)=SORT 

30__CONTINU_r  

REUTNO  P 
DO  »0  l.=  l»N 

WR1TE«8)  STD(L)  <NODEHLttNOOC2<t)  ♦TCRPl<L)tTCHP2<t>  tTEHPigt 
r6  CONnNllE  ■ 

RETURN 

end 


00320000 

00330000 

O03P0000 

0035000b 

00360000 

OORDOOOO 

obRlooob 

00R2OOQ0 

OOR30000 

boRSbbbfl' 

OOR6OOD0 

OOR70000 


MEHBER  N»HE  StRNG6Bg  

SUBROUTINE  string  ( K 1 « Y1 tZl tX2« Y2«2?»E« A f SN AT « VO) 

IMPLICIT  REAL*fl  <A-H«0-Z) 

OOUPLE  PRrCISiON  LAM,MU»NUtL- 
DIMENSION  SMAT(12,12) 

L = nSQRTKX2-Xl)««2«<Y2-Yl)««>2*<Z2-Zl)««2) 


VOsA*L 


LAM=<X2-X1) /L 

HU=(Y2-Y1»/L 

NU;<ZP-2i)7L' 


SHAT ( 1 « 1 )=LAM*  * 2 
SHAT(2t2)=HU««2 
SMATI^t  3) =NUi*2  ' 


SMAT<A,A)=SHAT ( 1«1 ) 
SHAT(5.5)=SHAT<2,p) 
SHAT  <6t6l  = SMAf  < 3,3) 


SHATI  1,2)=MU»LAM 

SHATn,3)=NU«LAH 

SMATd ,A)=-<LAH)»*2 
SHAT{1,5)=-<HU*LAM) 
SHAT(l,b)=j-(NU*LA_«) 
SHAT(2,3i=NU*MU  ■ 


SMAT{2,A)=-LAM*M0 

SM  A T (_2_,J ) MUJ  * •J 

SMAT(2»6r=»frU*HU 

SHAT(3«AI=-LAn‘NU 

SHATO.Jjlr-MU^NU  J 

SMAti:3,6f=-<N‘U)  **2 
SMA7(A,5IsMU*LAM 

SHAT<A<6)=LAH«NU 

SMATT5»6I=MU«N”u 
00  100  1:1,6 

00  100  d:I,6 

100  SHAT  < J,i ’):SH'AT<I,U) 

00  105  1=1,6 

00  105  0=1*6 

ic5  SMatU  rO)=i  A«E)  /l«S*MAT«lfO) 
RETURN 
END 


00010000 


00050000 

bobooooo 
00000000 
00100000 
00110000 
00130000 
OOIAOOOO 
001500DO 
00160000 
00170000 
OOlftOODO 
00200000 
00210000 
00220000 
00230000 
002A0000 
00250000 
00260000 
00270000 
OOPROOOO' 
00300000 
00310000 
00320000 
003AOOOO 
00350000_ 
00370000 
00390000 
OOAOOOOO 
dOAlOOOO' 
0OA20DOO 
OJOOOOO 
OOAAOOOO 
00500000 
0^05100  00 


HCHBER  NA.  UNPC'K6H9 


SUBROUTINE  UNPACK  < NONE ,N TUO,KK ) 

IHPLICI!  fiF^*8 JA-H,0-Z) 

OiMfNSlnN'KKli) 

KK(l>=HONr/100 

2):(NONE-100«KKt 1)1/10 

Kki  3)  = NdNC-100*KKU  f-i0»KK<2) 

KK<  3>=NTU0/100 

KK15):(NIUO-100»KKM))/10 

Kk<6)=NfwO-rdO*KK«Ai-iO*KKI5) 

RETURN 

END 


OOOICOOO 

OOOAOOOO 
00050000 
00060000 
000  70000 
OOOBOOOO 
00090000 
00100000~ 
00110000 
00120000 


418 


APPENDIX  I 


LISTING  OF  PROGRAM  TO  IDENTIFY  AREAS  OF 
HIGH  STRAIN  ENERGY  DENSITY  FOR 
HOUSINGS  (S-83) 


HCI*nr.R  NAMf  IflJPlAT? 


MfMBrnHAMt  SnSPLAT? 

FrAL*i»  HrAnn<fi>,EST 

RE  AL‘R  TKTF ,ncHn*TYME»BtA«K*XHOt_  

BEAL*ft  f iBE' 

COK.HOtJ/NOUl  U/IOUT 

_ COBM0N/STSART/UIO<200»  tOOUnCtOOIjSIEtSTHU 
OlrtENsioN  i cF(  1 2A‘j3>  «JPLT(60r 
CIBEMEICK  SZ<12ti?i5) 

__tOUIVALENCf;  <S2<lt«RCC2ll>) _ _ 

COMMON  'iRECitlAf.)  ,REC2«l2HS5>fSIGMAI*,!iO,B.9)  (SlUeOS)  i 
KOAOCSt  lTTPE«I0cri«StGnS(E>S0«t6)  «]DEEEM(E.50>  tIXCLUDI50>«NCLEM« 

_2IPLT<  10tf.)_,NEI0tnPtH<650}»inf'C 

COMMONYMbDC/AMOE  ’ 

EOUIVALCNCE  ( lOPI  U «ReC.2(  1)  > 

NAMELIST/OATAX/JPLT  _ _ __  _ _ 

namelist  /OHiT/lXCUUO 

RtAL*«  NAME<AItNAHCITt(;PLtFILESI5l«F  ItEFIS) 

DATA  GPL/_»GPl »/  _ 

4SHOfsCl  tHMOf SC2  ♦BHOtSl  ,fp6ES2 

iflHOEFCl  »MHOrFC2  .8HOEFI  ,BHO£F2 


oonooolo 
00000020 
COOOOOiO 
ODOOOOAO 
00000050 
00000060 
00000070 
00000000 
00000000 
00000100 
00000110 
00000120 
00000130 
OCOOOIAO 
a.  0 0 0 0 0 1 5 0 
00000160 
00000170 

OOOOO  1 fiO.. 

/00000190 
700000200 
•»D0000210 . 
00000220 
00000230 


DATA  FllES/fiMOrSPl 
DATA  FILEF /8M0EFB1 

DATA  HrAOR/»NORMAl-X»,»NORHAL-T»»»SHEAn-AY*, •MAJOR  ♦, ‘MINOR 
I’SHEAR  •f'THf.TA  •»»CASt  ' */  ' 

DATA  fST/*EST  •/ 

DATA  JPL7/6  ».74B49«J^5,lf,«lTj  l_«*l''*F'3j5*l  7*e»17»0*5»17,H,A«5, 2«6«5»  00000200 
i 3*8  «sr2 ‘ft's  f 7,3  »3i  9*  3»A*12*2«  lb,  12*  3«16,27»2*'25,21t  30426*21  *28«52  *00  000250 
226/  00000260 

.,_nATA  MLANK/OH  _ / _ _ . . . _ 0 0000270 

"data  BENO/fiMBENOlNG"/  " ‘ --  --  - *00000280 

* 00000290 

CAl  f (JLATjrs  CENTERLINE  _SlRESSrS_FOR_NASTRAN.  PL  A1  E_tLCMEN0  0 0 00300 
ONLT  ANO  FORMULATES  A m'aX/MIN  ARRAY  FOR  THE  CEHTERL'iNE.  5TRIS.SFS.  THOnOOOSlO 
CRAM  REQUIRES  THAT  THE  NAStRAN  DATA  BLOCKS  OESl  AND  OEFl  EXIST  ON  A 00000520 
TAPE.  MULTIPLE  SUBROUTINES  ARE_UStO_AND  THEIR  FUNCTIONS  ARE  AS  FOLL00000330 
il  READS  - RIAOS  STRESS  DATA  FROM  OESl  AND  COPIES  11  INTO  SIGOOOOOSAO 
array.  • OOOC0350 

2>  RFAPF  - ^EAOS  plate  FORCES  FROM  OEFl  EDS  TYPE_A.NO  LOAD  CAS00000360 
ELADGED  FROM  «l».  OATA  IS  LEFT  IN  WORKINO  VECIOR  00000370 
5>  STRESS  - CALCULATES  CENTERLINE  STRESSES  AND  ASSOCIATED  PRIN0C00038O 

STRESSES. _ 00000390 

iOAPS  THE  BAX/HIN  TABLE  AS  APPROPiATE." 

UPITES  HEADER  EOR  STRESS  OUTPUT 
PRINTS  OVER  MAX/nlN  TERMS  IN  SIGMA  ARRAY 


A) 

5> 

6) 


lOADMM 

RITE 

PRTOVR 


REAJl  IN_ 
"li 


2) 


3) 


OOOOOAOO 
OOOOOA 10 
_ nOOOOA2(5 
'"OOOOOASO' 
OOOOUAAO 

__  OOOOOA50 

ElCMENt  'URCE  F 1.  AG  “l  T’ocf  1 » . *IF  ToEFi  Cf'o'i  NO  E EC  M-i  N T F PRCO  0 C AD*  fcO  ' 
WILL  BE  PROCtSSEC.  IF  lOEH  F.O  -)»  THE  FIRS1  FIBRE  U 1 57  ANCO  0 0 00  A 7 0 
fROJ1_7HL  PROPERTY  C_A^  MILL  BE  U_SLJ[).  ^7_HERW  JSL.,_  THL_SECCNDO  0000  ABO 

wiii  iir  usEtiJ* ^ ~ ■ cooooago 

NAMES  OF  NASTRAN  DATA  FILES  lANO  UNIT  NUHRER  ON  WHICH  FILE  00000500 
PE  URr<7_EN)  _CO«TAIFJTNrr  STRE§SES_ANO  FORCES  IN  THE  ORDER  THOOOOOSIO 
APPEAR  ON  CHECKPOiMT  TAPE.  “ 00000520 

TF<r  LOAD  CASE  ID  NUMBERS  TO  BE  EXCLUDED  FROM  CONSIDERATION  0OOC05JO 
T^_MAX/FUN  ROOTINE.i  VMRUFlLE  IS  IXCIUD  MJ 1 H UP  TO  50  EXCLUOUC005A  D 
POSSTpLE.  'NAMELiiSf  INPOT'TS  USEpr  TjST  IS  TERMINATE'D  WltHODOOO'jSO 

OOOCOS6G 


WRnEI6,DAIAX)_ 

RE  Abl5,2bTFNAMf  ?1  > , f=i  ♦A»*fRCF  , TbEF.T,firHt  ,XM6t,  STE^STMU 

20  ' rof<MAT(5«Afl),i(i,Afi,Afl72tS.OI  ”*  ’ 

C MFHf'RANr  THICKNESS 

TFlan=-I.  _ ____  _ 

C PFFliniNr.  thickness  * 

IFlTPrF.FQ.HENDl  TFLAG=1. 

C Sfl  71PER  FLAG 


00000570 
00000580 
00001)500 
00000600 
00000610 
' 0 0000  620 
00000630 
fiOODOBAO 


4.13 


nm 


« a 


IF< TYML.Nt.DLANKJ  IT1HE=1 

C_  ZERO  E IMf  R 

IF < niHr.GT .0)  cil'l  clock<o«tihe) 

DO  31  1=1. bO 

3I_lXCLU0<n=0 

DO  3?  J=l<i^ 

DO  5?  1=1^10 

I*rl0«J-»lrl0  

32  iPtTri«J'>=JPLlU») 

KF*n(b»OMlT.CND=ao»ERR=S») 

_ 35_C0N1INIJE_ 

C INlTtAlizr  ARRAYS 
DO  1 M=l,D!iO 

lDtLEH<Mt=0_  ^ 

bo  i KA=i*« 

DO  1 PDrltfl 


OOOOOb^iU 

OODOODAO 

00000670 

oooooeeo 

00000690 

00000700 

00000710' 

00000720 

00000730 

00000790 

00000750 

00000760 

00000770 

000007BO 

00000790 

00000800 

00000810 


c 

c 

c 

c 

c 


1 R1GMA1H»WA<RB)  = 0.0 ; 

DO  r M=i,6Vo 

SI0f'A<8*l»l  )=-l  .E60 

Sir.MA<8,2,2L=-l.t60 

SlG»»A<(i,  1«3>  =«1.E60 
SlGDA(H,2t9 )=«1  .E60 

SI  G F A < H , 4 ,6)  :i-l  .E60 

SIG'HA<H,5«7)=*l.E6d 

2 CONTINUE 

. JTYPE.=  _0 : 

THE  CHECKPOINT  TAPE  IS  ASSUMED  TO  RE  ON  UNIT  10. 
COPT  OATa  BEOCKs"  ONTO  SCRATCH  TAPES 


K=1  „ 

DO  3000  l=ii4 
101IT  = I 

REWIND  I 

name'it-  .,u  _U) 

ir(NAflEir.EO.Bl.ANKJGO  TO  3004 

CAI  L yr  F.TCH<lR03tNAMEIT*R^?»lXtn»T2t'b3|K*Sll.»  0jLS2»lSUCti»A» 
IF  ( IsUC.iiT.d)  GO  TO  3002 
UR  ITC<6«30al)  NAHCIT 


00000820 

00000836 

00000840 

00000^850 

00000860 

00000870 

qOOOOBBO, 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

OOOOOOBO 

O0DOOS6O 

00000970. 

00000980 

00000990 

00001000 

OOOOlOlO' 

00001020 

00001030 

00001040 

00001050 


„3 on  1 . FOR fJAIi lH1.2ni/)<iytl201*4«)«/«10X<tTRDUBLC  READING  »»Ae<*  FROM  REO 0 0 01  060 


ISTAFT  TAPE— FATAL  ERROR*  t A/ , m»  120T  > 

STOP 

3002  _K=0  

RE U I NO  I 
3000  CONTINUE 

^C_0A_i'O  3010  I=li4 

IFTNAMEIl ) .ED.ESTl  KEST=I 
IFTNAMtlll.EO.GPLI  KCPL=I 

ojl  3pln_J=lj5  _ _ 

'"iriNAKcUl.FQ.FlLESfJlj  ks'TR  = I 
lr(NAMEU».EQ.F|LEFIJ)>  KFRCsI 
3010  rONTINUr 

_CAIL  SORTIOIKSTRI  

CALL  'LodTHKIKEST  tTFLAGI 

START  READING  DATA  OLOC K S_F ROM  SCR «LLC »t_l» P LS^ 

50  CALL  RtADSIKSTR  *4511 


00001070 
00001 DRD 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
00001180 
00001  190 
00001200 
00001210 
00001 220 
00001230 
00001240 


|F«  llTPr.EG.9.0R.lTYPE.tQ»16.0R.lTTPE.r.0.63)  CO  TO  61 00001  250 

IF ( i ffPF .GT.oi  GO  TO  10  ' 00001260 

WRlTfTf,,ll)  00001  270 

11  FORHAT<5X.MROU8LE  WITH  0ES1*> 00001280 

STOP  00001290 

10  CONTINUE.  00001300 

,1F.<.!0LTJ_*G1-7.?.>_-CAL.L_REAPMKF^^^^  00001310 

f.  “ 00001  320 


C PLATE  STRESSES  ARE  NOW  CONTAINED  IN  THE  ARRAY  SIGHS*  WITH  ID  CONT AINOO 0 0 1 330 
C IDLLE  Fit PLATE.  FORCES  AND  10«S  AR  E . .CQ.NT  A I NE  D_IN_T  EHP.OH  ART_yE  CTOR_REC.O  0 0 01340 


< 
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U U o.u  u 


00001350 
000013b0 

C«L1  THE  ROyU^^  SJRESS  FOR  CALCULRTI_Nf.  CCN  TERUNE_SJJ(CSSFS  AN0_PrRF00 0 0 1 3 70 
HAX/hlN  SEARCH.  ' OO0013H0 

00001390 

6 1__CA LL  stress 0 0 0 0 1 A 0 0 

GO  TO  50^  ' dOOOlAlO 

51  J=0 

C PRINT  TABLE  OF  MAX/MIN  DATA 


00  GO  M=ltNELEH 
J:J*1 

J F < J . ££.1  ) _W  P II F < 6 fJOJ 


00001A20 

00001A30 

ooooiaao 

00001A50 

00001A60 

70  FORP.ATTIHI  «//»?0X»*S  UMHARY  OF  HAXIHUH  AND  HOOOOIATO' 
lINIhUN  STRESSC  S**/«A0XtM  READ  DATA  SETS  BY  COLUNNSOODOIABO 

2.1!» 00001A90 

iFCJ.E0.3l  J=0  OdOOlSDO 

WRITF<G,71)  lOElF.HlMl  fOPTMTH)  00001510 

71_FORBAT(  //,JSX_,n  L r B E W T N 0 . * . IBt /»50  X<  « ( THICKNESS^*  i F6  .A  «000  0 1 520 
!•)•»//, nx, •MAXIBUM  TCNSiON«»13X»»MAXIBUM  COMPRCSsi ON* ♦ 33X i 00001530 

2 'PRINCIPAL  STRESSES*  »//«13K « ‘NORMAL -X‘*7X« » NORMAL •Y*«7X« ‘NO RHAL-X *00001590 
3 . 7 y , • NO  RMAL-Y*t  7X  SHEAR-XY‘i9X  t ‘MAJOR*  <1  OJT.t  *.iL|NuRI_»  flX.t.n;HIARI  ,/l_  00001550 
PO  72  Mlii ,e  00001560 

IFTMI.GT.6)  GO  TO  79  00001570 

WRITE<6,73)  HE  ADR  < Ml  ) < < SI  CHA  t M«M  1 «M  J > t M J = 1 1 B) 000015fl0_ 

73  FORMATllX, AS, H<2X,E1  3.7)1  00001590 

PRINT  OVER  nilGONAL  TERMS  OOOOIGOD 

_ CALL  PRT0VR«M*H1I OOOOIGIO 

GO  TO  72  00001620 

79  1F(HI.C0.7>  URITC(Gt75i  HEAORIN 1 1 * ( SI GM A I M «HI , H J) ,M Jsl , R)  0000)630 

_75  FORMATllXtA^tfllGJItFS.An __00001690 

IMMi.EO.e)  WRITC(6«?6)  HE  ADR  IHI  > « t S IGH  A < M * M I «M  J>  t H J = 1 Tb  > 00001650 

76  F0RHAT(lX«Ae«R(flX«F7.0)l 

72_C0NT1NUE  

'60  CdNTiNUE" 


CALL  ELCON<XEST«KGPL) 

STOP 
tfih 

SUl’ROUTINF.  SORTIOdUNIT) 

RtAL‘R  _TIMEi_XM00E.X_M0e„ 

REAL‘8  FllEN' 

COMMON/NOUTU/IOUT 

COMMON  IR  EC  1 119  6)  .R  EC2  < 12flfe3»  t S IGH  A ( 650 , 6 *8)  • SHI  80  3 > ♦ 

J LO  ACC  Sji  I TYPE  ♦ I Ot  F 1 « SI  GMSl  65  0»  16  ) » IDELEM 1 650  ) 1 1 XCLUD 1 50  ) f^NELEM  4 
2"fPLTri0^67  »NFiu,nPtH<65dJ»lflHE 
coMHON/Monr/xMor 
DATA  xnOOE/*MOUE  */  


DIMENSION  I0P<12853) 
EOUIVALENCt  <inp(l)»REC2U>l 
1F(  ITIME.lt. 01  GO  TO  9001 


CALL  CLOCK!  liTIME) 
TI M=<  T IME*3 .GD?) 
HRITEIG, 10001  Till 

9 001  coiniNiJr 


00001660 

00001670 

00001680 

00001690 

00001700 

'ooooitic 

00001720 
00001730 
00001790 
000017; - 


150 
00001760 
00001770 
"00001780 
00001790 
00001800 
dobbinio 
00001820 
00001830 
"00001890 
00001850 
00001660 
00001670 
00001880 


1000  FORMA! ( 1X4* ENTERING  SORTI 0* tF 16.8 » 

J THIS  SUBROUTINE  SCANS  THE  STRESS  TABLEt  BUILDS  IDELEM  ARRAY*  AND  THEN00001B90 

C IT  IN  ASCENOiNG  ORDER.  ' ~ ~ 00001900 

NELCM  = 0 00001910 

KASFLG=  -1  00001920 


99  RCAn(lUNlTiCNO=101IFILeN«Jj4L 

READ!  lUrMTtCND=101)<IRECini»»lI  = l4L» 
READ! IUN1T4ENO=101>F !LEN« JJ«L 
PEAOCrUNIT.ENDribrM  REC2  (1 1 ) « 1 1 =1 1 1 7 
C CHECK  FOR  PLATE  ELEMENT 

1TYPF  = IREC1 13)  


DO  10  I=ltlO 
IFl ITYPE.EO. IPLT 
10  CONTINUE  


lift))  60  TO  98 


9P 


GO  TO  99 
L0ADCS=IRECH9) 

IFl XMDC.EQ. XMOnE)LOADCS=IRCCl<S) 


00001930 

00001990 

00001950 

00001960 

00001970 

_poooi9eo 
0 d 0 b i 99  o" 
00002000 
00002010 

'00002020 

00002030 

00002090 
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C sn  FIRST  LOAD  CASt  NUMBER 

IFTFASFLG.EO.-l  I LOADlstOAOCS 

_ IFdOAOCS.GT.LOHDl)  GO  TO  101 

’KASFVG  = i 

C SIT  NUMBER  OF  ELEMENTS 

NflPrE/lPLT  <N2) 

bo  90  J=l»HEIO 

KrNELEM*J 

OA=CJ-l)*lPLT 

r.  Fili-  UP  element  io  array  . ' 

90  IUELEM<K)=(IDP( JAI-II/10 

N E L E M = NELrM*NElD 

CO  TO  99  ■ , 

101  CONTINUE  , 

C SORT  THE  10*S 

»(X  = NEIEM 

20  MN1=1 

21  KO  = KX-l 

L0=0 

OO  30  N=l»KO 

_CO  TO  (22j23)«XNl ' __ 

22  TrN 

GO  TO  29 

^23  1=KX-N 

29 'continue 

1F(  lOELEMd  I -10  CLEM  ( I FID  3 0t3a«2S 

25  NARTrlOELEMI  1 1 

IOELEM<I)=lDELEM<I*i) 
lULLtK(I+l)=NART 
L0  = 1 

30  CONTINUE _ 

IMLOl  90,90  «35 
35  lElKNl-l)  95,95f20 

95  KNl  =2 

GO  TO  21 
90  COfltlNUE 

REWINP  TUNIT 

if YPE:0 
RETURN 

100  WR1TC<9,102) _ 

102  FORMAT  (IHl  flo'</l4lX«»TRbup'LE  IN  SUNRO'UT  INC'  SORTID— ciTl 
STOP 

ENO . 

S'uRROUriNE  L6oTHK<IUNiT,TFLAG} 

RCAL*B  TIME 

DIMENSION  1DP<  12655> 

COMMON  IRtCHlAfe)  ,RE.C2T  12S53 » • S 1 CMA  1 650 » 8 i B>  ♦ £ H 1 B« 3 » * 
lL0AncS«ITYPr«IOEFl»SIGMS<650»16J»lDtLEM<660)t IXCLUD(50» 

21P_LJ<10j6)tMF10jOrTH«650J«mflC__  

equivalence  iiibpiii  «rec2(i>> 

REAL«n  FILE 

COMMOM/NOUTU/IOUT  ; : ) 

ibUTsIUNlT 

1F< 1 IHt.LT.Ol  GO  TO  9001 

_ ^CALL  CL0J;KJ_1  lIlME) 

^ flM=lT |HE*3.feb3) 

M VRITEIG, 1000)  TIM 

9001  CONTINUE 

1000  rOPMATdXfFENTERlNC  LOD  THK  • tFlG  . 8 ) 

C THIS  SURROUTINE  LOADS  THE  PLATE  THICKNESSES 

9 2 _R L A 0 T I U NJ  TjE N_D^1 0 0J_r  1 L tts> JLli 

IFlL.LE.fcl  RETURN 

PEADTlUNITtf N0=100)  f REC2( [ > t 1= 1 t L) 

J=I  OP  U 1 

CO  93  1=1,10 

IF(J.EO.IPLT»l  ,11)  GO  TO  50 

^_CONTINUE 

GO  fb  92 
50  CONTINUE 

lECTr  1PLTU,3) ^ 


,NELEH, 


00002050 
00002060 
_ 00002070 
00002080' 
OC00209P 

^0  00021  00 

00002110 

00002/20 

00002  230 

00022190 

00002150 

0000,'  160 

00002176 

00092180 

00QC219U 

00092200 
00002210 
_ _0000222V, 
■'  OC002230" 
D0002'..'90 
00002250 
' 00002260 
0000227U 

00002280 

00002290' 
0OOOC30O 
00012310 
■■ 0060?320 
00002330 
00002340 
__00002350 
■"  00002560 
00002370 

0v>0023«0_ 

00002390 
OOOC290tJ 
..00002910 
0000292U 
■ 00002930 

000029''0_ 

ODU02950 

00002960 

CD002970 

00002980 

00002690 

P0002bP9_ 

0000251 ? 
00002520 

00002530. 

00002590 
00002550 
..>'00  02  560. 
00007  j70 
00002580 

U000259D.. 

00002600 

000026lo 

0000.2620. . 

G0002630 

00002690 

00002650. 

'00902660 
L 0002670 

0 0nD2  68  0._ 

66002990 

00002700 

0000271  0,. 

00002720 

00002730 

00002790 
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c 

c 


fiElP  1=  IPL  M I > 
iBGPnr  = iP'.T<i»r. ) 
_ITOTr  IPLTUifi) 
sr  T fibrycR  on;i.^MrNts 
Nrit  = <L-l)/t  VOT 


LOOP  THROUGH  ElEHrNTS 

no  10  i/t-i'.Nf  to 
IB- «IA-l)‘nOT  »2 


UCO=IOP<TB> ' 

" lFMtij.i.T*TDELFri«l»l  CO’  to  JO 
I'^tlF-IO.GT.IDET  F-MtHCLtHU  6L  TO  A2 

no  2U  iTfI.EW 

■'  IF  ( tCloiHr  . IDELCHd  tfl  GO  TO  2o‘ 
t'PTR<tci=Brc2»iB*irrT*tf 


1F<  J.E0.7.0F,.J.l0.R.aR.J.tH^^)_DPTH;iO  = pCC2  ( T?«IECT*3) 
V iFTtFLAOiLC.O.)  GO  TC  20 

-FtJ.'fl.F-.on.J.fO^l'J)  0PTHUC»=Rf,C2l  IB+lf  Ct*!i> 

' 20  COMIrlUF 

10  rON  . INUE  J 

■ ‘ r-0  TO  <12 ■ ■ , 


o000?7!'0 
00002760 
OCi0  02T  fO 
0CL02760 
00002790 
00  ooppon 
oooopeiu 
P0002820 
.00002830 
00002800 
00002050 
OOOOPBbO 
'00002870 
00002880 
00002890 
OC0C29O0 
00002G10 
00002920 
00002930 
6 0 0 0 2 9<i  C 


100  I'.TURN 


0t00?950 


>N0  _ 

GUftROUTJUE  RC*Or,<  lUNIT  >•»  ' ' 

REJU*ft  FILENfJMODE.XMOr, 

_Rt*L*R  TIMC_  _ _ . _ 

coBHOH/noOi u/iouf 

OIPENRION  IDFtlPnSSI 

C08i!0N_  ]PrCJ.UBt)  «RE_C?tKa53)jSlGi|'»l_650«8*R)  *.Sni  803)  • _ 

It  0 JOCSiTt  fPt  t '.OEFl  rSIGHSt  650*16*  vlbELEMC650)»lXCLOi)(50),WELtH» 
21PLT<in*6)-nf IO,nPiH<450)*lTIHE 

I'OHHOn/MOOt /JHnr  __  

OATA  'tRObr/'HObE  ' •/”  ^ ~ 

EOUl-iALENtE  U0P(1).REC2<1)) 

TOUT: I UNIT 

)'* ItfHE.LT.O)  GO  TO  ACOi 
, , CALL  CLOtKt  1 ,TIP.E) 

[HE«3 .603)  _ _ 

~'«Rf  TE<6*i6onT' Tiii 
<••001  fOfiTirjur 

1 000  rOR8AT(lX«M:NTrRlNri  REaDS»*F16.e)  

c " BEGIN  pr  AOING 'OAfii'FROH'OESr- 
c 

_21  CONTINUE __  

~REAO<IUNIT,tNO=10n)  FlCENfJJtL 
IFIL.LT.IOO)  RETURN  1 

t W RITE (6 *12)  F I L Ei? * J J ♦ L_ 

12  F'ORMATIlXtARiPMjVfa)) 

REAO<IUNIT,END=JOO)  < I RECl < U ) * 1 1=1 *1 ) 

C 7 E < 6 * 1 1.)  L C IJ  1 1 ) »II-1»L> 

1 1 “fOrSat  'i  fx*  I 518) 

RtAUtlUNIT*EriO=100>  FILCNtJJtL 

RrAO(IUNlT<ENO.-.100)  < RE C2  < 1 1 ) * 1 1 = 1 » L > 

C " WBITE<6«201)  tRCC2<II),li=l*L) 

C 201  FORHATI  lXt8tF10.A*lX)> 

C_  CH_EC3  FOR  PLATE  CLEMENTS 

DO  ID  1=1*10 

IFdRECKSl.ro.lPLTd,!))  GO  TO  98 

_ JO  CONTINUE 

CO  TO  99 
C 

C_  PLATE  tLE_8ENT  LP-b” O' .f « OpEl?— ! 

C 

98  LOADCS: IRECl (A) 

» F ( X . t Q ._XMO p t >Lv>AnCS=IR£Cl<5) _ 

if 7PE  = IREC1 « 3)  ■ 

C SET  NUMBER  OF  ELEMENTS  lOS 

-JTLTL'=L/1_HLT<1,2) _____  _ 

bo '90' j=i,Nrib 
dA=<J-l )* IPLTd ,2»*1 

1 0 = <J  OP  tpAJ-J  ) / 15 


00002960 
00002970 
00002980 
00002990 
00003000 
P0D03010 
00003020 . 
00003030 
00003040 
00003050 
00003060 
0000  30  70 
00003080 
00003090 ■ 
00003100 
00003110 
00003120 
00003130 
00003140 
00003150 
00003160 
00003170 
00003180" 
06003190 
00003200  _ 
'00003210  ’* 
00003220 
00003230 
00003240 
00003250 
00003260  . 
00003270  ‘ 
00003280 
00003290 
00003300  ' 
00003310 
00003320 
b000333Q'‘ 
0000^340 
00003350 
C0003360  ' 
00003370 
OD0O53BO 
'0  00  03  3 90  ■ 
0P00540U 
00003410 
00003420 
GOOOSC  30 
00003440 
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n n^n  ( Irt  In  In  o o ! I i ; ' : n ■ n n 


"1 


00  91  K.  = 1»NELEM 

|F<  lO.tO.lUtLEl^CKl  J GO  70  92 

_9J  WNTlNUr._  _ 

9y  lEKOsiPLTri  t?!-! 

tOOP  THROUGH  tltf'ENIS  AND  StOHE  IN  SIGHS  ARRAT* 

fliS  DO  eo  J0::ltlENl)  

09  SIGHSIK  t JOl  tiRE  C2(  JA4  JO> 

MR!1E<Gi?nO>  (SIGHSTK  tOltHsltlGl 

90  continue  

RE  TURN 

?n0  FORHATT lXtR(F14.A«lX)t/tlX»e(FlA.4tlXi) 

mo  cntJTiNuc  

IF C lOEFl .ET.O » RETURN  i 
RETURN 

__  STOP 

end'"  ~ ' ’ 

SUBROUTINE  READFIIUNITJ 

RE  AL*fi_rLEEN 1 _ 

REAl.»8  TiwE 
DIMENSION  inp<l?853I 


00003450 
00003460 
00003470 
C00034n0 
00003490 
00003500 
00003510 
00005520 
00005530 
OOOOS54C 
'00003550 
00003560 
,00003570 . 
00003560 
00003590 
.00003000. 
09003010 
000031 20 
.00003630, 
00003040 
00003050 


_COH » Qfri  JLflf  CXUL4 6 ) jXCLE2.(.J 2a5.J.Lf.S I GHA  1 050  ,B  j tl>«Sl<l 6.0 3 )j 

lLDAPCS»ITyPF«10EFl,Sir,«S!650*16>  tinELtn«65ti  J»IXCLUD«50)tNELEHt 
21PLT«10,O>.NFl0,UPTH<650»  »ITI«E 

_ f Q OJ  V At  r NC E _( IQ P < 1 i.i. R.E.C2.( A>._> 

EOHHON/NOUTU/IOUT 
IF!  ITIME.lt. 0»  GO  TO  4001 

_C  y-  L-Q  U OCKd.TI  P.EI  ^ 

TIH=<f IHE*3,603» 

WRITFTO. 10001  TIM 

4 00)  LONTINUE _ 

1000  FORHATnx'i'ENrtRlNG  RtA0F«»?16.e) 

TOUTsJUNlT 

f.<Rr.UNI)r.-i 


COFT  t'EFl  FROM  TAPE 

_NRruNn=  numberjjf  rewinds 

98  TIRE  w'M'rjiNfi'ttjND*  i " 

99  CONTINUE 

WP  lU  <G.  1 )_ITYPE»LOADCS 

1 FORMAl<)X,20<‘i'».2i8» 

PFATJ)  lUNlTfENOslOOl  FILENtJJ.L 
WR.1TE<6|12J  FlLCNiUJ»L  

12  fo'rhat'<  ix'.A'R.siTAx,  isn" 

REAOdUHlT  lENOslIKH  < I R EC  1 ( 1 1 1 * I mi  *L  1 

_WR_IJLE  (Ojl  j 1 > < I R.E  C n 111.  11=1  «L1 

li  FORMATOXtHfri! 

READ!  IUHlTil-;flD=  100)  FILtN»JJ»L 


.00003660. 
00003870 
00003600 
.0  0003690 
000057UO 
00003710 
_0.DD03729. 
00003730 
00003740 
.00003750 
00003  160 
00003770 
00003780 
00003790 
00005800 
00005810 
00003620 
C000363C 
00003840 
“00003850 
00003860 
.00003870. 
00003880 
00003890 
.00003900. 
00003910 
00003920 


READ! lUNITtEND^lOGI  < REC2 « 1 1 ) . 11= 1 . El  0000393B_ 

iFiNREWND.CT .5)  GG  tu  110  ~ 00003940 

no  10  1=1.10  00003930 

irilREi:!  13)  .ED.TPLTd.lll  CO  TO  102 00005960 

'in  CONffVliiE  " " ■ 0900397  0"' 

00  TU  99  00003*;fi0 

_ _ _ 0 0003950 

■pLME'FOUNB',;  PROCfEO'  ''''  ' 0 0064000" 

00004010 

inj  JF^lREClJ  3mHE.  ITYPE»UR..1RECHM.JNE.I^ADCS>  0^10  99  00004020 

'C"  “ ELEMtSf  fYF’r  AfJD' 'load  CASE  'HitCl)  iHOst  FR  Bfi  Fftt  AOS*”--  'PR'CCEEU'.  -OObOAOJO 
RETURN  00004040 

lO'O  REWIND  lUHIT-  ~ _ _ 00004050 

" GO  'Tii'' 98  ■'  ■ " ■ 0 0 01)4  060 

111)  WHMl.UnlllT  00004  070 

111  FORMAT  dHl  ,20'/ ), 1201  •»•)  t//,2X. '•the  UNIT  CONTAIHllTG  OEFl  HAS  8 LEND 0 0 04  0 R 0 

1 RFWOUNn  5 TIMES  --  VERIFY  THAT  PLATE  FORCES  ARE  ON  T APt^»//jl2 OJ "0 00 04 090 

2**1)  “ ' “ ' ' “ 00004  ) 00 

STOP  00  011411  0 

END  _ ___00004  12(! 

kiPPOUTTNP,  'stress  ' ■ ■ ~ ' - - - - 00004130 

RE  Al *8  TIME  00094  14  0 

DIMENSION  inPd  2853)  00004150 


.sJL,’. 


li  lip 


^ i 

^ A 


i 
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COMMON  IB[CUl'»<j)  tRF  C2<  12853)  « SIGMA <650*  8 ifl>  ,S1HH03»  t 
UOAOCS,  ITyPEiinCFUSIGMS(e50*18)«lDf.l.EM(850>«lXCLU0l5Q)«NLLeHf 
21PL1<  10*fi) *GFIDtDPTH<65n) I ITIHE 
EQUi  VALENCE  f i DPI  I ) ,*RCC2<  1 ) » ' 

COMHON/STSABT/I 7lb(2  0D)«ZSlGl(2.0ai4ZSlG2(2nO) tS TDLN t2 00 ) tST E « ST  MU 

LOOP  through  elements  

Il-I  iflHE.LT.brGO  to  Abbl' 

CALL  CLOCK! 1 »TIHE) 

TIM=<IIME*S.fi03t 


WRlTEIGtlODO)  TIM 
AOOl  CONTINUE 

icon  EOnHAT<lX<»rNTERING  STRESS* ,E 18 « 6 > 
JC  = 0 
J=1 

SET  RECORD  l.ENGTH 


IF 


ITVPE 

LNr.=8 


.EQ.  9«16«63i  LNG=R 


IFI  ITYPE.EQ.9.0R.ITTPE.Ea.l6.0R.lTTPE.En.63>  GO  TO  3 
IF  lOEFl  .GE.  «*  LNC=6 

LNGj^G 

IF  I lOEFl .GE.O)  GO  TO  3 
IF  lOEFI  .LT.  Oi  LNG=!7 

LNG^n 

3 66  10  l=i»nci6 
KK= (L-t 1 *LNG« 1 
IO-<IOP<KK>-1I/10 


OOODA 1 bO 
OU00A170 
OOOOA 180 
"obOOA 190 ' 
OOOOAZOO 
ODOOA210 
OOOOA220 
OOOOA230 
OOOOA240 

"o'booAzso' 

0(1004280 

00004270 

“00004280 

00004290 

00004300 

“06004316“ 

00004320 
00004330 
*00004340 
00004  350 
00004360 

“00004370’ 

0D0C4380 

00004390 

“00004400 

000D441C 

00004420 


00  91  1=1»MELEM 
IF < ID.EO.IDELEMII 1 ) GO  TO  92 
91  CONTINUE  


URITEISWO)  ID 

70  FORMAT!  IMl, 201/1, 120«»*»>«/'/,*NO  ELEMENT  HAS  BEEN  FOUND 
IR  THE  CURRFHT  LOyi,  CASE  AND  ELEMENT  »,  1 5 . THIS  ELEMENT 


2D.',//»120<»«’)» 

STOP 

GO  TO.  10 

92  CONTINUE 
JC=JC*1 

IFI  JC .JliL?  1 ) CALL  RITE ( 1 TYPE.LOADCS) 

IFlUC.EO.bOl  Jc=0 
IF< LNG.EO.ei  GO  TO  99 

1F<  lOEFl  .I.T.!.0J  CO  T0_35_ 

CHECK  "for  zero  FleRE  OISTANCC,  ' 

0=1 

IFI  SIOMSI  1,01  .E  0.0«  > M jr  0_  99_ 

0=9 

IF<SIGMS(1,0).F.O.O,)  GO  TO  99 
0=1  


IFISIGMSU,l),NE,(-SlGMSIIf9>l»  00  TO  5 
DATA  IS  FOUND  FOR  EQUAL  DISTANCES  FROM  CENTERLINE.,  AVERAGE 
SI GMSI 1,04 1 J=C  S KiMSIIfO  + l 1+SIGMSI ],0*9) )/2* 

E I G F S ( I , 0 - ^1  = <_S  1 GM 5 a * 0 < 1 ».♦$ I C M S tjj  0 ♦ I p ).)  / 2 . 

60 “i 6 Vi 

5 CONTINUE 

READ  NONZERO  FIBRE  DISTANCE 1. 

’f  I B ’n  fs'=  A r A*iisicMs<i,i»,siGMSu,9i> 

IFISIGMSII, 91. GT.SIGMSI 1,1)1  0=9 

TSQ06= (2.«F IDDt  S)«*2/8, 

V6' CONTINUE 

IF  YOU,RE  HERE,  YOU  FOUND  AN  ELEMENT  HATCH. 

nENSTS  = -RJ,C2IK_K  ,n/TS008_ 

i F I 'f i B b I S . L T . 0 1 BF'N S T S =- BEN S T S 
STRESS  IS  POSITIVE  IF  TENSION. 

SIGMSI 1,0,1  l^SI GMSI 1,0*1) -BENSTS 
PENST.S="REC2|’kK*2)/  rS008 
IFIFIBDIS.LT.O. 1 PCHSTS=-6EN5TS 
SIGHS  ( I ,0*2  1 =S1  GH_S(  I ,0*2)»BENSTS 


PRINCIPAL  STRESSES 

41  S1GI  = < SIGNS  1 1,0 »1)*SICHSI 1,0*2) )/2. 

SI02=SUR1 1 ( SIGHSII, J*1)-S1GMS( 1 ,0*2 5 )*• 2/ 4. *8 1 CMS  I 1*0,3) 


00004430 

00004440 

00004450 

“06004460“ 
IN  OEFI  F000004470 
1S_  IGNMEOa004480 
00004490 
00004500 
00004510 
00004520 
00004530 
00004540 
00004650 
00004060 
00004570 
O0C04580 
00004590 
OOUO460D 
OOOQ4610 
00004620 
00004630 
00004646 
00004650 
00004660 
00004670 
00004680 
00004690 
0.0004700 
00004710 
00004  V20 
00004730 
00004740 
00004750 
00004760 
00004770 
00004780 
00004790 
OD004R00 
OD004R1 0 
00004620 
66004830 
0000404P 
•.*.2) 00004650. 


DATA. 
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i OTIi 


siri=siGi ♦sioa 
SIG^=S1G1-SIG2 

SI  r,MS £1  ♦ vl ♦5»j:AH AX  U SI 03*51641 

SIGHSlit  J + C)  =AM1H1  ( SIGStSid'A) 

SIGHSII, J*4>=( AnN(2.<SlGM$(If J*31/IStGMS( I«J«2)-SIGHS( 1* ) > t 

‘lfi0./3. 1416  

SIGKSI  I*  J*7):AnS<SlG2J 

IFI SIGHS! I* J*4) .GT.4S..0R.SIGnS( t*J44) .tT.-4S.) 

_ • S 1 G H S ( 1 I Ji* 4.1,  = A e_S I S I GHSI  1.  J*4I  1-90. 

3S  IFI lOEf 1 .LT*-1)  J=9 
99  JPI=J*1 


00004R60 

00004fl70 

00004RRO. 

00004890 

00004900 

.00004910 

00004920 

00004930 

.00004940 

00004950 

00004960 


__  JP7=vJ*7 00004970 

WRITEI6.9fl)  i0*ISIGHS(l,IJ)*IJ=Jpi»JP7)  tOPTHUl  00004980 

98  FnRl'AT(ie*6X*3((13.7*2X)«F12.4*  3 I2X  t " 1 3.  7 ) • 7X  *66 . 4 ) 00004990 

1F(  nYFl*FQ.6)C0  TOlOO 00005000_ 

IF ( UYPE.EQ.IOIGO  TOlOO  00005010 

1F« 1TYPE.EQ.17)G0  TO  100  00005020 

1 FJLI  TYPF.EQ.l  fl  )GO  TO  1 OJl 0 0 0 05030 

GO  TO  200  00005040 

100  I?ID(L>=10  00005050 

2S1G1<LI=;S1GMS<  l*JP7-2> ^0 0 0 0 5 0 6 0_ 

ZS1G2«LI=SIGHS«I*JP7-Il  6o6o5070 

STD  ENID  2.5*  <2  SIGH  LI  **2>ZSIG2<LI«4  2-2.  *5180*25 1011  LI  <ZSlG2<Ln/  000  05  080 

l^TE 00005090 

C SKIP  HAX/HIN  IF  LOAO'CASE  EXCLOOEO  " OOOOSIOO' 

lCLl»n  = 0 00005110 

200  no  79  1XY=I*50 __J1 0 0 05 1 2 0_ 

IFC  IXCLUOnxYl  .ECi.OI  GO'lO  78  00005130 

lF(LOAOCS.En.IxaUD<IXY)»ICLUO-l  00005140 

IFILOADCS.EQ.IXCLUDIlXYll  O^^lOLlO  _ ^ ^ 00005150 

79  CONTINUE  ' ~ ' - - — . — " 00005160  ' 

78  CONTINUE  00005170 

C WOW  FILL  UP  HAX/MIN  ARRAY. 00005180 

IFISIGHSf l«J*ll .LE7sfGHA<l*l*l>)  GO  TO  80  OOOOSisO 

CALL  LOADMH(I*lfJ«n  00005200 

80  IFISIOHSI  1*J*1)  .GT.SICHAIUlyS))  CO  TO  91 00005210 

CALL  LOAOmiTi *"3*0*1)  - - , — '•  00006220 

81  IFI«1GHS<I*0*2)  .LE.S1GMA<1*2*2))  GO  TO  82  00005230 

CALL  L0AOMM(l*2*0*I ) 0000524D 

_ 82  1F< SIGHSI I*0*2) .GT.SIGHA! 1*2* V ) GO  TO  83 00005250 

"call  lOA6HHn*4,J,f  ■)  " ■"  00005260 

83  ir<  ABSISIGHSUi  <J*3)  ) .LE.ABS(SIGI1Allt3*5)  ))  CO  TO  84  00005270 

CALL  LOAOHH<I,5*J*n  00005280 

84  "fFiSiGHSiriJi^V.LE.SlCHAi  1*4*6)  1 GO  TO  85  ~ 00005290  * 

CALI.  LOAOHni  1,6*J,I)  00005300 

_86  1F<S1GHS<I*J*5)  .GT.S1GMAII*5»T))  GO  TO  8^ 00005310 

"call  lOAOMHil, 7,0, ir  " ""  " 00005320 

86  IF( AKSISIGHSI 1*0*6) ) .LE.ABSTSIGHA! 1 *6,8)  >)  GO  TO  10  00005330 

CALL  L0J^nHHjlJ,8,0,JJ 0 000534  0 

10  CONT'INUF  • - — 00005350  * 

IF(  ICLUn.EQ.DGO  TO  300  00005360 

CALL  STSORT^  _ OOOC5370_ 

*300  "iri  ITlHr.LT.CDGO  *TO  4002  . - - _ - _ 00005380 

CALL  CLOCK! 1 *TirE)  00005390 

T1W  = <TIHC«3.6D3) 00005400_ 

URifE(6,i001)  TIM  00005410 

4002  CONTINUE  00005420 

1001  FORMAT!  1X**LEAVING  STRESSN^IG. 8)  00005430 

RFTURN  "■  * * ■"  "00005440* 

r^jp  00006450 

FND  _ _ . 00005460 

SUPROUilNF  LOAOKH! JOElEM,lC*OL*J,KDEUn)  00005470  " 

DIMENSION  I0Pfl2fl53)  ' 00005480 

COMMON  IRFCl  (1461  ,REC2(l?R53)*SICnA(650*8*,ei  tSlJlBOS)..*  _ 00005490 

ICO  A DCS,  1 TYPt,i6r>1  ,:;iGMS<650*i6),ibn*LEH(*656'»  *IXC'LU|1<"50)  ,NELCM,  00005500 
2IPLT< 10*6),Nr 1D,DPTH(650) ,ITIMC  00005510 

EOyjyALf.NCF,_(  iqpj  l ) *REC2(  D) 00005520 

C " *'  00005530 

C THIS  SUPROUTINE  LOADS  1HE  ICOL  COLUMN  OF  THE  HAX/MIN  ARRAY  FOR  THE  00005540 
C . .JDELIM  ELEMENT^..., 00005550 


SIOf-AJKOCLEI^tlt  tCnL)=SlGHS(  JOELCHt  J*l> 

SI  GMA  I KOE  LEJ(,2  , ICOLJ  =51  OHM  JAELEMjji»?i 
S!GWA<KOELEM,3t ICOL ) =51 GHS < JOCLEHt J «3) 
sigma  < KPELEH,A  tt  COL)  =51  CHSIJDELEN»J*!)> 

S1GMA(K0ELEH.5, tCOL ) =51 CHS< JOELEH« J*6> 

SlGKAlKDELEKffe*  1 COL  > =51  GMS'f  JOELEMf  J*?)' 

SIGMA(KDELEM,7< 1C0L)=S1CKS( JOELCn«J*A) 

_S  1 C M A ( K PE  L E,M _?n  » J CO  L )=L  0 ADCS 

PE  TURN 
STOP 

_EHO  _ _ _ 

SUPROUTINE  PRtOVR<IfJ) 

DIMENSION  I0P<12«53) 

COMMON  tRECmA6)«RECgl  12853)  «S  I GMA  ( 050  » 6 « 8)  « 51  ( 1 R03)  t 


ILOADCS.  lTYPE«IOr.Fl  «S  IGMSt050«10  ) , IDCUCH 1 050)  * IXCLUD  (50  ) iNELLMt 
2]PLT(10«0)iNEl(itOPTH(050)  «ITtnr. 

EOyjyALENCF.  J^ippa)  »nEC21 1)J 

GO  TOn  0*?0  i3hi  <0,50  ,00)*  j 
ID  URITElOfll)  SIGMA(1,J,1),SIGHA(1,>),3) 

WRITE  <6, 11)  SlGHA<l,J,l),SICHAtl,J,3) 

7, 17*,  Cl  3. 7') 


11 


FORHAT(1M«,10*,C13. 

PC  T UR  N 

20  WRnE<0,21)  SIG  MAH,J,2),  SIGH  ATI, J»A) 
WRITE (0,21)  SI6HA( I , J,2) , S I GHA ( I , J, aT 

21  F0RMAT(1H*,25X,E13,7,17*,E13.7) 

RnTt/Pfl 

_30_UR,ITr<ft,31)_SIGH*(I,«t,S) 

WRITt<0,3i>  SIGM.Al  1,  J,5) 

31  FORMAT(1U«,TOX,EI3.7) 

RETURN  


AO  WRITECOfAl)  S1GKA(I,J,6) 

VRITE(r,,Al)  SIGMA(I,J,6) 

F0RMATjJJIl,8r)*,  E13.7) 

RETURN 

50  WRIIf(0,5n  SIGM.AI  I ,d,  7) 

WR  ! TE  < 0 1 5 1 L-S  J C'MA  < I , J,  72 
si  FOflMATdH*,  10dx,E13.7) 

RE  TURN 

_60,  VRI  Ti:<t»G.U..-5IGMA<  I,J,8) 

WRITC(0,G1)  SIGMA(l,J,n> 

61  FORMAT! lH*,115X,ri5, 7) 

RETURN _ 

STOP 

END 

SUBROUTINE, RITE n type, LOAOgii) 

WRITE  ((,,10) 

10  F0RMaT(1H1,//,30X,*S  tresses  in 

IFdTYPr^EO.  0)  WRITEIG,  6) 

1F<  ITYPE.EO.  7)  WRITCIG,  7) 

1F(  ITYPE.EO.  B)  WRITflG,  6) 

IF!  ITYPE.EO,  9),WRITC(6,  9) 

IE!  I TYPE. EO. 15)  WR1TE(6,1S) 


• ) 


IFdTYFE.EQ.IG) 
IFdTYPE,C0_.I72 
IF!  ITYPE.EO. ifl) 

IE!  ITYPE.EO. 19) 
IFdTYPE.E0.03) 

WRITE  10,20)  LOOnCS 
20  FORMAT! IM», 70X, 'P  L 

_6  F0RMAT|1H,,5AX,2C_L 
i EORMATI iH«.5AX, 'C  T 
II  FORMAT!  If!*,  SAX, 'C  T 
9 FORMAT!  lH*,5AX,'r.  T 
15  FORMATilH,,GAX, 'CO 
If,  F0RMA111H+,5AX,  ‘C  0 
_17  FORMATdU*,5A*,*C  T 
IB  rORMATI  ilU,r.AX,*C  0 
19  fOMMAl  ( lM»,'jAX  4 ‘C  a 
63  F0RMAT!1H«,5AX,’C  0 


UR1TC(6,16) 
WRITCI6,17), 
WRI tC(6*181 
yRITC<G,19) 
WRITr.(6t63) 


T E 
1_A 
n s 


r 0 R CAS  C*,I8,/) 


00005560 
00005570 
000055ll0_ 
'60005590 
00005600 
,00005610 
00005620 
00005630 
000056AO 
'00005650 
00005660 
. 00005670 
000056RO 
00005690 
0000570G 
'6'00057io 
00005720 
,00005730 
00(J057AO 
00005750 
00005760 
"00005770 
00005700 
00005790 
00005ROO 
00005B10 
00005620 
00005630 
00005HAD 
00005850 
,00005660 
00005670 
00005660 
.00005890 . 
00005900 
00005910 
.00005920 , 
00005930 
OOOD59AO 
.00005950 
00005960 
00005970 
.00005980. 
00005990 
00006000 
.00006010 
00006020 
00006030 
.lOOOOfOAO, 
00006050 
OQ006C60 
,00006070. 
00006080 
00006090 
00006100 
00006110 
OO0C612O 
00006130 
OU0061A0 
00006150 
00006160 
00006170 
00006160 
00006190 
00006700 
0000621 0 
_000n6?20 

00006230 

000062AO 

00006250 
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113! 


1 URlU<6<<tO) 

RO  FORn*T(lX«*ELCncriT»,10Xt*STfttSS(;S  in  CliHCNT  coord  SYSUHN12X« 

^I’PR  IHCIPAL^  tlix  t*PRlHCtPAL  ST«CSSES*> 

ljRIIM6*ri6)' 

SO  rOPHATEAX,* IO.» .» OX , ‘NO RH AU -X • » 7X ♦ «NORH AL-T • » 7K » • SHC AR-Xt ♦ ♦ 5X» 

1 'STRIPS  ANG^’i  RX«^HAUOR*tl OX^*KINOR* (A OX  t*SHCAR*c7Xt  • THICKNESS* 

~ 7 H i ■ ■ ■ • 

RETURN 

ENO 

supRoirrTfir~n.cfiRTkTsTiRGpn  “ - 

COMMON  I RCC1MR61<REC2( 19853) «SI6HA46S0«8*R) «S1 (i 8031 « 
1LOADCS«ITTPCtIOCFl«SIGMS<6SO*16>t IOCLCn<6SD)«lXCLUD(SO) fNELCM, 

9lPLT(10f6TTWfr&«bPTMi65olilTl8t  ' ' ' 

OIHENSION  1 CON<  8S0«71 «1 GPL (1500) «JCST( 10) «1 DP (12853) 

REAL*8  riLC«tLUAHC< 12)»NAMC 

CQ  U I V At  t NCr  (1  CON(lj*l)«SI  GHS«1«)  6P  LlDtSlGHS  < 1 ^ S __ 

COUiVALCNCC < I0P(1)«RCC9( 111 
DATA  JEST/A«3<9*8«3«3*R/ 

DATA  LNAHE/BHCTRIAl  «8HCTRBSC  «8HCTRPLT  «8HCTRMCM  «eHCQDPLT 
ibHCaDHCM  t8HCfRlA9  «8HCQUA02  *aHCOijI(nr 
REUINO  KEST 
READ  IN  GPl.  TABLE 


♦ericol)HEHr7 


REAOEKGPL)  F1LEN«J«L 
PEAD<KGPL)  <ICPL( I) tI=l«L) 
NLiO 


READ  IN  rSt  TAHLE 
19  RCAO(KCST<ENn=l  00)  FILCN»«ltL 

REAPlKESTiENO^OO)  < RCCSU  > « 1 = 1 «L  ) 

iF<ibP<ir.GT.io.AHb.ibP(ijiL'T.is)  go  t6"i9 
IF( IOP( 1).GT.I9.AN0.IDP( 1)«LT.31)  GO  TO  19 

60  TO  100 

LTYpE=inp«n 
OCTERMINC  ELEMENT  TYPE 

O0_20  lA  = ltlO 

iFILfYPt.CQ.ipLTiiAfli)  GO  to  30 
90  CONTINUE 

r.O  TO  19 

30  CONTINUE 

LNr.  = IPLT<lAtG) 

NELCM=L/LNG  


NS=NL*l 
NLsNL*NELEM 
K = 0 


no  AO  I=NS.NL 
K = K«1 

IPS  <K-l)  «LNG*2 

IC: jEST( lA) 

ICONfNDslOPdP) 

IC0N<I<9)=IA 

1C0N(I*3)=IC 
DO  A1  JsltlC 

INGPL  = < inP(IB*J)«5)/6 ^ 

A1  IC0N(I*J*3')  = iGPL(INGP'L) 

AO  CONTINUE 

GO  in  19 

CONNECTION  ARRAY  IS  COMPLEIEt  SORT  IT 
100  CONTINUE 

NELfH=NL  _ _ _ _ 

CALL  SORTCXUCnNffeSOtTtl) 

NOW  PRINT  IT 

M=0 _ _ - 

DO  00  IrliNL 
IFIM.EO.OI  WRlTEiGiSlI 

_5l  FORMAT{1H1,/,AOK»*E  L E M E_N  T_CONNECTIOH  TADL 
" i,//WX,*ELrHENT  'tax,  •r.LEMENT»<rXtM8X»*GRio*«3X>,/*9X»*  ID*  . 12X, 
9'NAME',13X,*A* , lAXf •n*«lAXt»C*«lAX.*D*t/A) 

NAMr  = LNAME< JC0N<I*2)  ) 

ICsICONl  i 

WRITC<<,«GD)  ICONIU  1 )>NAMEr(ICON(  IiJ)«J=A*K) 

_60_E0RMAH_7)^»XT’J?J(  ,AB»  9X»A  1 3Xtl.6f  GX).) ... 

H=M*i 


00006260 
00006?  fO 
000062BO 
00006290 
00006300 
00006310 
00006320  ~ 
00006330 
000063AC 
00006350 
00006360 
00006370 
00006360  ' 
00006390 
O0006AO0 
OnOObAlO 
00006920 
00006930 
*00006990 
00006950  ■ 
00006960 
00006970 
00006980  ' 
00006990 
00006500 
00006510 
00006520 
00006530 
00006590 
00006550 

p0006660_ 

00006570 
00006580 
_ 00006590 
'00006600 
00006610 

0pp06620_ 

00006630  ' 
00006690 
_00006650 
00006660 
00006670 

00006680 

6660669d' 
00006700 
_ 00006710 
00006720  ' 
00006730 

00006790 

00006750' 

00006760 

00006770 

'00006760 

00006790 

00006800 

00006610  ' 
00006820 

00006R30 

00006090 
00006H50 
_ 00006860 
00006B70 
00006080 
E/00006B90 
09006900 
00006910 

00006920 

00006930 

00006990 

.00006950 

00006960 
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OiU  U O U O OIU  u 


HTHBIR  N>ME SflIPI.«T? 

lF(>.GE.5r)  HrO ^ 

50  C'JMTINUE.  0 

^Rn_UR^ . 0 

END  ' * ’ ' 0 

SUBROUTINE  SOR  ICX  < I UlTPtl. tH«I  SEL > 0 

COBRON  IRECIUR  0 1 j Rj;  C 2 < 1 2 853I>S1  OJ1  * L650 j 6 1 8 > j SJ,iJ  8 0 3 ) » 0 

lL0*ncS« ITYPEflOCFl «SlGHS(6S0*16)»IDCLeHI85bl*IXCLUD(50) «NELEH«  0 
2IPLT(10*6»iNE10fOPTH(650)tITinE  0 

0 

0 

ITEMP  IS  THE  ARRAY  TO  BE  SORTED  0 


0000970 
0000980 
0006990 
0007000 
0007010 
0007020 
0007030 
00070A0 
0007050 
0007060 
00070  70 


L AND  H ARE  THE  ADJUSTABLE  DIMCWSIOH  VARlABtES  FOR  ITEHP 00007060 

00007090 

00007100 

ISEL  g THE  NO.  OF  THE  JIOK.  OR  COL.  ON_WHICH_!Jp_SOBJ 00007110 

00007120 

00007130 

DTBENSlnH  ITEM  P U-  ♦ « > ♦ N*  K Yt650) ’ 0 0 0 0 7 1 A 0_ 


EQUIVALENCE  ENARYdltlDCLEKlI)  00007150 
LL  = NELEM  00007160 
M_=  K _ 00007170 


20 

1F(L.E0.UAN0.H.C0.1)G0  TO  71 

RX  ^ LL 

KNl  = 1 

00007160 
. 00007190 
00007200 

21 

KO  = KX  - 1 

00007210 

LO  = 0 

00007220 

DO  30  N = 1«K0 

.00001230 

GO  TO  (22«23)«KN1 

00007240 

22 

I = N 

00007250 

GO  TO  24 

00007260 

23 

1 = KX  - N 

00007270 

24 

CONTINUE 

00007280 

IFC  ITFMPd.  fSELl-lTENPE  1«I*ISELI1  3D»30«2  5 

00007290 

25 

no  60  II  = 1»MH 

00007300 

F'ART(  m = ITCNP<I,U> 

00007310 

iTErpEiaii=  iT£«p<i»i.in 

00007320 

ITEMP< 1»1»1 I)  = NARYl  111 

00007530 

60 

CONTINUE 

00007340 

LO  =1 

00007350 

30 

CONTINUE 

00007360 

1F(L(I)40«40«3S 

00007370 

35 

1F(KN1-I)45, 45*20 

00007380 

45 

KNl  = 2 

00007390 

GO  TO  21 

00007400 

40 

CONTINUE 

00007410 

70 

CONTINUE 

00007420 

71 

RETURN 

00007430 

END 

00007440 

429 


5294-78 


